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KEMlNJER 



«f OE 6S02 KEMCRS » - EEN CLUB VDOR 6Sxx GEBfUIICIB HE 6502 KENNER « 



BEN BlilD VOQR 69xx BEBRUIXERS 



De vermigifig heeft leden in Nederland. Btlgit. Duitfland, 
Frankrijk, Spanjc, Portugal, flitrika, 2a*bia. Ret doel van 
de vereniging is: het bevarderen van de kennisaitNisseling 
tunen georuikcrt van fiSxx-coaptttert, zoalt KIN, JUNIOR, 

amm-6i. apple, oc-i. pewcon, ain^, syn. pet. wt 

ATARI, VIC-26. BABI& 108, PnTON-coaputert, m-W20, OSI. 
ACC 8000, ACMN ELECTRON. SVSTEN 65, PC-100, PALLAS. NINTA 
FDRNOSA. ORIC-1, STARLI^, CV-777, ESTATE III, SB£65/68, 
NCS 6502, KEimC Systeii-4, Elektuur SANSaN-«5 DOS 
coaputcr, LASER, etc., etc. 

De kennisttitNiiwlingNordt o.a. geraaliMerd door 5 Mil 
per jaar DE 6502 KEWER te wtblictren (1984 en 1985 6 aaal 
zonder kontriiwtieverhoging), daor het houden van clubbij- 
ecnkoMtcn, door hit initandnouden van etn cattette-bibll- 
othetk an doer het verlenen van paperttare-fervice. Rtgio- 
nale bijcenkoMten iMrden door Itdm gNrganitctrd. 

Verschijningsdata 
DE 6502 KBWER 19 65 

derde zaterdag van 
februari, april, juni, 
augattus, okteber, deccabcr. 

Inlichtingen over de regio- 
bijeenkosaten: 

Gerard van Roekel 
Van der Palattraat 11 - C 

3135 LK Vlaardingen 
Tel.: 010 - 351101 



Bijeenkoasten van de club 

derde zaterdag van 
jamiari. Mart, aei, 
lepteaber, noveaber. 

Redaktie-adres en inforaa 
ties over paperwre etc. 

Hillee L. van Pelt 
Jacob Jordamntraat IS 

2923 CX Krimen/IJssel. 
Tel. : 01807 - 19881 



De vereniging ii volledig onafhanfcelijk, is statutair od- 
geridit en ingeschrevtn oij de Kaaer van Keophandel en Fa- 
brieken voor Hollands NoorderkMartier te Alkaaar, onder 
634305. 



Voorzittert 

Rinus Vleesch-Dttbeis 

Fl. Nightingalestraat 212 

2037 nS Haarlca 

Tel. I 023 - 330993 



Sekretarisi 
Gert Klein 
DiedenHeg 119 
6706 CN Uageni 
Tel.: 08370 - 



ngen 
^646 



Penningaeester: 
John F. van Sprang 
Talp 71 

2925 EW Kriapen/IJssel. 
Tel. : 01807 - 20589 



Leden: 

Adri Hankel 
Emin Visschedijk 

Nico de Vries 
Ercvoorzitter: 
Ereleden 

Lideaadschap : 



(0S490 
(05490 



Redaktie DE 6502 KENCR: 
Hillee L. van Pelt 
Jacob Jordaensstraat 15 
2923 (X Kriepen/IJssel. 
Tel.: 01807 - 19881 



51151 ) HardMarc/softNare 
71416 ) HardNare/saftNare 
ProMtie 

HardNare/softMare/PET 



Lide.achap 86: 
Advertent ies : 



(010 - 502239) 
Sicp de Vries 

H. de Vries - Van der Hinden 
Anton Nueller 

IFl. 45, » per kalenderjaar, postreke- 
ning 3757649 t.n.v. Penningaeester KIM 
6ebruikers Club Ned. , Kriepen/IJssel. 
Te voldeen uiterlijk in deceeber 1985. 
Tarieven op aanvraag bij de redaktie. 



OE 6502 MENNER if ewi iitgave van de KIM Sibruikcrs Club 
Nederland. Met blad iwrdt verstrekt aan leden van de club. 
OE 6502 KEMCR Mordt van kopij voorzien door leden van de 
club, bij de ooeaak van een publikatie bijgestaan door de 
redaktie. Da inzendingen van prograaaa's dienen vorzien te 
zijn van koaaentaar in de listings en zo aogelijk door een 
inielding veorafgegaan. Publikatie van ten inzanding bete- 
kent niet dat de redaktie of het bestuur enioe aansprake- 
lijkheid aanvaardt voor de toeoassing arvan. De inzendingen 
kunnen geichieden in asseably-source-listincs, in Basic, in 
BHicoda, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De leden schriiven ook artikelen over de door hen ontMikkel 
de hardMre en7of aanpassingen daaroo. Zij schrijven t evens 
artikelen van algeaene urd of reageren op pubhkaties van 
andere inzenders. 

DE 6502 KENNER IS EEN BLAD VAN EN DOOR IE LEDEN 

Nicro-AOE Asaeabler/Diiasaeabler/Editor is een produkt van 
Nicro Uare Ltd., geschrcven door Peter Jenninas en bestead 
voor alii 6902-coaputirs. De KIN Sebruikcrs Club Ned. heeft 
de copyrights ventorven nadat ons lid Sebo Woldringh de 4 K 
KIN-1 vertie uitbreidde tot 8 K KIM-1 versie. fldri Hankel 
paste deze aan voor de JUNIOR. Willea L. van Pelt stelde 
een nieuMe 8 K source-listing voor de JITIIOR saaen. 
De iapleaentatie od andere systeaen dan de KIM-l en J'JilIOR 
kan eenvoudig gcbeuren door het aanaassen van de I/O-adres- 
sen, MeIke in de source-listing geaakkelijke te vinden zijn 

FATE Foraat-lister/cond. Asseabler/Taoe-utilities/Editor is 
de door ons lid Rob Banen geschreven source-listing van een 
12 K universeel systeea voor de ^lOR-coaouter aan de hand 
van het universele disk oaerating systea van de fa. Proton 
Electronics te Naarden, nu gescnikt voor werken aet tapes. 
FATE Mordt beschikbaar gesteld aet toesteaaing van Proton. 

In de editiis van DE 6502 KENNER Morden regelaatig aedede- 
linoen gedaan over de door de club georganiseerde bijeen- 
kaasten. Ook Morden bestuurlijke aedeoelingen gedaan, naast 
inforaaties over hetgeen in de handel te kooD is. Leden die 
lets te koop hebben of iets zoeken kunnen dit in de edities 
van DE 6502 KEMER bekend aaken. Ook worden ttel brieven aan 
redaktie oepubliceerd, evenals soecifieke vragen van leden. 
De edities aorden s aa c nqesteld op basis van een yroot aan- 
tal prioriteiten, aelke'door een redaktievergadenng Morden 
gehanteerd. Deze veroadering bestaat uit de vaste aedewer- 
kers zoals in de colofon veraeld. Het aantal inzendingen is 

?roter dan in een enkele editie van ainiaaal 48 pagina's is 
e venierken. Hierdoor kan het voorkoaen dat een inzending 
eerst na enige tijd kan aorden gepubliceerd. 



DE CLUB lEEFT BEHOEFTE AAN NEER LEDEN. HIJ UILLEN MEER AAN 
KIMCN BIEDEN DAN NU AL HET GEVAL IS. UERF DflARGN EEN LID! 

HILT U EEN PRIJSLIJST? STUUR EEN GEFRANKEERDE ENVaOP AAN 
HET REDAKnE-flDRES. 

Een onafhankelijke jury kent jaarlijks een aantal aanaoe- 
digingspreaies toe aan auteurs van geoubliceerde artikelen 
in DE 6902 KEMCR. 



De eS02 KEMO is een 
uitoave van de KIM oebrui- 
kers Club Nederland.' 



Adres v»or het inzendcn 
van en reakties od artike^ 
len voor DE E502 KENNBi! 
Uillet L. van Pelt 
Jacob Jordaensstraat 15 
2323 CK KriAoen a/IJfScl 
Tel.: 01107 - 19BB1 

Varte Mdetierkers: 

Willea L. van Pelt 
Berard van Soekel 
Frans Saeehuijzen 
Jaao van Toledo 
Freelance Mdetierkers: 

Frans Bakx 
Rob Banen 
Fridus Jonkaan 
Gert Klein 
Sowr Langeveld 
Anton Mueller 
Gert van Oobroek 
Ibiud IkihBff 



Sehele cf ge(teeltelijke 
overname van de inhoud 
van DE eS02 XENNER zsnder 
toesteMing van het be- 
stuur is verboden. Toeoas- 
sing van ceoubliceerde 
pregraMH's, 'hardmi^cte. 
is alleen toegestaan lrWf 
oersoonlijk gibruik. 

K 6S02 KENNER verschijnt 
€ X per jaar en heeft eoi 
van SOO exeaslaren. 

1S85 KIM 
Club Nederland. 

ii^^eoraagina is een aoiia- 
m van een KIM, geschil- 
^rd door. 

^iNts V!«Kch Mieis. 

In verband aet auteursNet- 
oeving en andere aaatreoe- 
!en OD het cebied van Be- 
schBMing 'van softMare 
kan de redaktie > 
iMPr<^lijkheid 
vBor iszendingen. 
iRzeHdiiKien dienen afkot- 
te zijn wn de immr 
mfi^ tmmi " 



I INHHDSFGRVE DE 6S02 KEMO NR. 39 AUGUSTUS 19BS 

! 
I 



1. Van dt radaktit 2. 

2. IHtMBdifimi Landflijto Ujaankiirt UidM 21 not IfH I. 

3. CTIMDDORE U 

CBN 64 Tios en Trunks 3. 
... Gerard van Roekel 

Ti«a of Day Clock: da 6S26 nadar bakakan 13. 

... Ruud H. Uohoff 

fluteaatisdM Dataraoel Teller 46. 

A. flCORN ELECTHW 

Rrchives Pragraa; aen Baaic oragraaaa 5. 
. . . SiMn Vaartaaa 

5. BgIC 

Maiiized Basic Kaymrda and iMdraaaaa CM VKOi, tM^WBUt 36. 
... Nico de Vries 

6. DOSES JUNIOR 

l^{?ierKS'for the JUNIOR 10. 
... Coen KleiDOol, France 

7. JIMIOR aet QS^ V3.3 

MBniiTnckn oo OBBlD V3.3 IS* 
... Gert Klein 
S. JUNIOR 

TaoTT/O 33. 
... A.U. dan Hartaff 

9. FORTH 

pniTR oD JUNIOR-coaoutar, daal 3 if* 
... Gert van Oobroek 

10. PROTDNjcofPuter PC-2 

Ervirlnoen weViVK-Z caaoatar m Proton EUxAtm^ 35. 
... Sieon Voortaan 

11. Vraaen van ledan 2.12,13,18. 

12. Vraaa en flanbad IB. 

13. Boek6esoreking 12. 
m. HCC-coaauterdap»H/^^ mWtS-. ■ 35. 

RBdactiriMH 
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DE 6902 KENNER oiwat ner editie tiniMal 4fl oaQiru's. In 
mat club treffnt iie vooels aan van diverse oluiMoe. De 
clrii is niet alleen een verzaaelino aensen wt allerlwuide 
ciMDiiters rtnd eenzelfde orocessor-fMilie. het is ook (te 
Mnifestati« van een rijk gischakcerd gcbraik van mri di- 
versiteit aan oragraMeertalen en eetnod en . Die verschei- 
dcnheid Hordt nog eens ertra Mlijst door het voorkoaen 
van alle Iceftijdm. Jong en oud is aktief en leest veoral 
graag hon blad. Hat aij bet reft ontbreekt ar nog ttel lets 
essentieels, hetgeen bij de eprichting in 1977 Hel dege- 
lijk aanHezig tttsi het vromtelijk getlacht. 
He registrcren technisch geschoelden, adeinistratief opoe- 
leiden, en andenm. Hun interessin looen ulteen. Dat allH 
is veor de redaktie van belano oe te Meten. en een uitda- 
ging oa aee te Merken, gezien het untal pagina't. Oe 
aeeste ledm blijken een hogcre belingstelling te hebben 
voer het twrfcen in aachinetaal. Niet zo vertMndarlljk alt 
je bedenkt dat aachinetaal nu eenaaal de grootste venier- 
kingssnelheid oplevert. Het hoeft ook gaen batoog aaaroa 
Basic zo ptpulair it. Het is iaaers de aeest unsprekende 
taal, geaakkelijk te lercn en bij de aanschaf van een coa- 
puter zit deze er aetstal reeds in. Na lange tijd van aan- 
drang aijnerzijds haeft ook Forth binnen da club Mt aiar 
aandacht gekreoen en wordt ook aeer oebruikt, oadat het 
vele aalen sneller is dan Basic, al Is het unltran ervan 
niet voor iedereen even gtMkkelijk, en is cnio doorzet- 
tingsveraogan al voldoende. NerkMardig is hat felt dat da 
prograaaaartaal Pascal op hat vtrlanglijttjt van vtlen 
prijkt, aaar ar blijkbaar vanNege de kosten nooit afkoat. 
Je ziet er dan ook vrijHel geen prograaaa's door in het 
blad. en dat is erg jaaaer. Ook Mat aaar undacht zoudan 
de leden kunnen bestaden aan Coaal en het oubliceren van 
prograaaa's in die taal. Coaal haeft de gebruikersvritndt- 
lijlie taalkant van Basic gepaard aan het oestructureerd 
prograaaeren zoals in Pascal. Ue zien er echfer Meinia in- 
zenoingen over. Dat behoeft niet zo te zijn, als de leden 
aaar genaeg aandacht daaraan zouden kunnen besteden. 
Soaaige van onze lezers zijn, naast hun aktiviteiten aet 
betraRking tot het prograaaeren, driftig bezig aet het 
ontaikkelen van hardtiare voor hun systeaen. Vooral Nat dit 
betreft it het voor de redaktie een gunstiger jaar geNeast 
doer het aantal inzendinoen op dit gebied. We hebben al de 
stukkcn gezien van enkele toekoastige publikaties die er 
aeer aogen zijn. Het vergt veel voorbereidino oa het ou- 
blikatiarijp te aaken, en vael inspanning van rridus Jonk- 
aan die aan de tekentafel staat, ofscheon hij oak heel 
graag achter z'n coaputer zit. Een applausje voor Fridai, 
die dat voor de inzenders en de lezers over heeft. 
Fridus is niet de enige die ook nog aerk verricht voor de 
redaktie, de hobby koabineren aet clubgerichte aktivitei- 
ten. Je neigt emaar aeteen de bestuurs- en redaktieleden 
in het zonnetje te zetten, en terecht, aaar alhoeitel een 
niet onbelangrijk soort clubdinosaurussen aet een speciale 
tifc, ik doel eerder op de grote groep altijd nijvere club- 
■ieren die zich voortdurend, bemst of instinktief, bezig 
houden aet het de redaktie voorzien van steeds aeer publi- 
ceerbaar aateriaal. Indachtio het gegeven dat daaraee an- 
iteren kunnen mrden georikkeld tot het inzenden van hun 
inspiratiet, aaardoor zijzelf het genoegen hebben de ken- 
nit van eldert aan^ebaden te krijgen. Zoals het aieren 
vtrgaat, hun inspanningen Norden eerder op onzichtbare aa- 
nier beloond dan konkreet door de plaatsing van de eigen 
inzending, Maarvoor ze nop veelal hun gedeld oo de proef 
gesteld Heten. Naar ik blijf bun naaen tegenkoaen. Ook 
voor hen aogen de handen ml eens oo elkaar. ' 
Toch heeft de redaktie niet genoeg. Er is nog veel aeer 
aateriaal nodig. Er zijn nog veel aeer aensen nodig die 
aedeaerkino verlenen aan het blad en aan de Daoentare- 
tervice. In de eerste plaats kunnen ae voor aat betreft 
aachinetaal denken aan aateriaal dat reeds gepubliceerde 
prograaaa's voor andere dan de ei^ aachine oazet naar de 
•igm aacMna en Muram zenadig aodificatiat zijn aanoe- 
brwM;, Miit nrtiirlijk mlf oatNikkelde origimlt taft- 



aara. Dan is ar de niet geringe behoefte aan Basic-orooraa- 
aa's. Vooral beoinnende coaouterhobbyisten hebben veel aan 
dit soort publiliaties. Hardaart-artiiielen ziin even aelkoa. 
Er zijn ook dokuaenterende aktiviteiten, zoals o.a. tot uit 
dnikking gabracht in da tarla Tokanizad Batic KevMords and 
Addresses, die in een behoefte voorzien. Te denken valt aan 
het dokuaenteren van de asseabler van Moser, of de orooraa- 
aetrtaal Pascal en al aat dies aeer zij. Het betreft hier 
•tn bljzondtr toort uitoluitNork aur niet iedereen tegen 
faestand is, aaar dat toch heel leerzaaa kan zij,n, en voor 
indarm hNl balangrljk oa 19 QMg It kitwi ar «• ataMi- 
sinoan te realiseren. 

Ut Roavtn niat iltljd te denken un hat ontaikkalan van 12K 
asseabler/editors. Dat hoort er ook bij, aaar het kunnen 
ook aindar oavangrijka protokten betreffen. Ue aoeten reke- 
ning probertn te houden aet het feit dat ae beginnenda hob- 
iqriittn ook ten baatje 00 gang aoeten haipm. in hit 
ren van aanpassinoen is ook van belang. 
De voriga kiran hab Ik opgeroepen tot het aeeheloen aan ean 
aantal belangrijke zaken van de redaktie en de Daseraare- 
sarvica. Reads gepubliceerde artikelen aoeten Horden ver- 
taald naar het tngels. Er zijn echter ook Enoelse zaken die 
vtrtaling naar hat Nedorlandi beftoeven. Koeael aijn ooroeo 
niet zonder reaktie is oebleven, ik kan nog aeer hulo 
gabruiktn. laaart, hat aanfal buitanlandse leden is door de 
ontHikkeling van de Elektuur SflNSONBS DOS-coaouter in Duits 
land nogal opgalooin. Die aantan ail ik ook graag helpen. 
En nu kan ik keren of aenden, het is alleen aooehjk als de 
laden van da club gevolg qeven aan aijn ooroeoen. 
Zo denk ik ook aan het feit dat het illustreren van het 
blad aan balingrijko zaak is, aet naae aat de frontoagina 
betreft. Het is natuurlijk niet zo, dat er onder onze leden 
mat iaaand zou zijn die in staat it voor de frontoagina de 
olaat te aaken die velen van ons leuk zullen vinden of er 
iets van hun hobby in kunnen herkennen. 
En dan nog iets: aie er noo aeer ideeen over heeft, die zou 
ik allien vragen: aaar aacfit je od? 
Het is hier dat ik aeteen even kaiit kan dat de redaktie 
blij is aet de inzending in Basic voor een Acorn Elektron 
aacnine door Siaon Voortaan, die ook iets te zegcen heeft 
over de Proton PC-2 coaputer. En dan onze vriend Drs. Coen 
Kleipool uit Frankrijk, die de aandacht ail vestioen 00 het 
D0S65 voor de JUNIOR-coaouter, een aooi systeea aaar ae wel 
aeer van zullen horen. denk ik. In deze editie koat U voor 
da Coaaodore-64 een ael aat vreeade eend in de bijt tegen, 
aezien de listing van het prooraaaa van Ruud Uohoff. Niet 
zo varaondcrlijk is het, als aen aeet dat het oa een source 
gaat die in de Club Asseabler Texteditor (CAT) aerd oeschre 
van. En, ae aogen er gerust aen beetje trots oo zijn'dat we 
in verband aet de aktiviteiten rond net 0S6SD V3.3 een ar- 
tikel van Gert Klein kunnen publiceren dat dat ooerating- 
systeea eens flink aanpakte. Een aantal andere jwdllikaties,, 
toch ook van niet gtringa bitilnnl% iMMM lM fiiHl te- 
vredigend larderan. 

mmmiLmm 

iiiitmistisitiiatitMwttitiiittiiiiiiiiiiiititiiiiiMtiMt 
§ t 

t VRAGEN VAN LEDEN ■ . t 

ff Frans Raaijaakers uit Tilburg zit aet een orobleea. ff 

• In JIMIOR-boek 2 staat een listing van de eonitor- • 
ff en editorroutines. De aonitor is heel siaoel. Die * 

• zorgt eiwnlijk alleen aaar voor de sturino van de ff 
ff disolays'en de afhandeling van het toetsenSord. Ik • 

• druk e«i toets in. De aonitor neeat aktie. Als het « 

• oa een adres oaat aorden FA en FB bijoeaerkt. Als ff 

• het oa data gaat aordt F9 bijoeaerkt. Als ik inoeef ff 
< (AD-0200) <DA-fl9>, aanneer aordt de adresbus'dan ff 
i 0000 0000 0010 000 «i de dotabut 1010 1001 ? t 
iiHttintniMttiitttuMtHHtummitiiiMminmm 



2 



5 O lE! 



KI£IMtsl£R 



Et M 



N 



U K 



iEN^^m WOOII^^IIIiSli^ 64 

V*l»n van one ziJn inmiddels uit d» varantie periode van hun commodore 64. 
Zodat voor de hardware Kobbyisten een aantal tekortkomi nsen eindeliJk ver- 
wezen I i J kt kunnen worden. Het vol vend* onderwerp im a I in ve I e varieteiten 
vepubliceerd in de diverse Kobby-b I aden. Toch bleven er prosramma's weike 
niet te resetten waren en de en i «e op loss ins was cm de aan/ult schakeiaar 
te sebruiken. EiseniiJk ziJn er maar twee soede opiossinsen. Een daarvan 
is om de resetvektor in de rom te wijzisen. Niet eiesant> maar zeker soed 
»iierKend. De tweede opiossins is een hardware-mat i «e zoais onderstaande 
tekenins «an«»eft. U Kunt de reset drukker monteren in de kast en de nood- 
zakeliJke v*rbindinsen aanbrensen. Voor wie dit toch niet aandurft is ook 
•en usersc»t@rt iconnektor t* s^bryiken en «i«n «Ansiuit*n voljwus tek«nin«. 




Als met een kassette rekorder het prosramma is bi nnensehaa l d seeft onder- 
staand prosramma dit aan met een Pieptoon. Het kan zonder reseinummer wor- 

#C»CS42i6« 191 P0KE54278. 240 1 P0KES4273t 50 1 P0KE54276. 33 



Ind i en u aebruikt maakt van schoonmaaksch i j ven voor uw floppy-drive wordls 
OP de verpakkins vermeldt dat deze schijf onseveer 20 sekonden moet draai— 
en. Zonder toevoes l n? van een prosramma hiervoor za I hi J echter na en i se 
sekonden weer stoppen en een foutmeidins seven. Het prosramma hieronder 
hei pt u da«rbi tl. 

10 OPEN 15, 8, IS 
20 PRINT#15t "I" 
30 INPUT#1S. A.B»>C.D 

40 t*m¥i9twHt^mi^i&t2m 



Een disK#1&te weike u opnieuw wilt * FORMATEREN' heeft onseveer 2t 5 minuten 
hiervoor f!i#di«. Het kan echter veel snel ler Conseveer 15 sekonden) indien 



Het *SCRATCHEN* van mmrdTm pre«r«iiim«* s t*««liJk Mortft MO«#iiJk bti N»t 
volsende prosrammai 

OPEN 1 St 8. IS. "SetNAAMl, NAAI12. NAAM3. NAAMETC " i CLOSE 1 5 

Voor Mie nos in de sarantie periode zit en toch een redeiiJke resettoets 
wi I sebruiken kan dit kieine prosramma zonder r*«*inuMiM»rs intoetsen* D* 
'RESTORE' toets »«erkt nu als resettoets. 

P0KE792. PEEK (BS532> i P0KE793. PEEK (65533) 
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UITN0DIGIN6 CLUBBIJEENKONST 

,.'1, ! „..I-„. SSS. I . .■ !• " ■' ■ ! 0— MW—IMiB 

Datua : Zaterdao 21 seotariier 19BS 
Lokatie : St. Buurthuis f^^i* mmMW' 
Entree : HFl. 10,00 p. ^ , T^ t.v 

Reisroute : 



- Mr arta - Vamit A'daa. Do de fl4/E10 richting R'daa. 

le afslag Leiden ter hoogte Leiderdoro. Je 
koat ait op Hoge Rijndijk. ftf rijden tot in 
Leiden. Vlak voor bnio links een tutertoren. 
Na die brag laopt vlak lams het water ■m 
asfaltMO. DEZE NIET INSUMf)! 
Na eng. 900 aeter links aafaltMtg aet aiddan 
bera. Oo de hsek bloeaenkiosk. Hier inslaan, 
is de Barggravenlaan. Uitriiden tot aan brug 
en vlak voor (!) brag recMsaf, la mtim 
ractits. Zia verder par train. 
Vamiit Den Haag: M/EIO richting Leiden. 2t 
afflag Leiden neaen. Zia varder bovan. 
7 Vanvit R'dai: Ml/m fktting Ma Hii|. Zia 
vardar bovan. 

- par train - Uitstappen station 'Leiden-Laaaenschant*. 

Parkeerplaats over en recttsaf de Sitterlaan 
op (brada asfaltHag). Doorlopen tot over de 
brug an linksaf, langs het aater. De Du Rieo 
straat is eerste straat raciiti. Baarthuia if 
aan rachterkant alt iM|«ig aan aniara aind 
van de straat. 



61 La«i 111.1 m^mm 



PRDHVWNR 



09.30 - Zaal oaen. 8asthaer: Marcel van Bora 
10.00 - (kienina 

10.15 - SYSTElCN ROND DE ELEKTliUR-BUS 

Een rondvlucht boven de ookoast van de JUNIOR 
an da Elaktuur zelfbouakaarten en koffiedik- 
kiiken via de SfWS0N6S DOS-coaouter. 
Inlaidino an diakuasia aat taaa anttwusiasta 
S(WSaN65^raihartt Va«t van Difiliiar an Uftl 
Cuyoers. 

11.13 - Deaonstratie Saason6S. 

11.49 - Forua. Boabardaar hat forua aet Un vragan. 

12.15 - Landk 

13.00 - Narkt. 

1X30 - IIFORMEEL GEDEELTE. 

Gelegenheid tot hat kannisaakan aat andare laden 
van de club en Han qmtaaan. Bnmg vaaral aak UH 
systeea aee! ! ! 



Haaft U aaftaara ef hardaara entaikkald? 
aee en gaaf hat af aaa da radaktiaw 

17.00 Slaifing mt dt bijaanhawt. 



het 
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lOREM *** Archives program 
20REM *** Made by S. Voortman, 
' 30REM *** Beatri;!weg 28, 

40REM ttt 3253 BB Ouddorp 

50REM *** (The Netherlands.,* 

60REM Phone 01878-3113 

70REM *** On an ACORN ELECTRON 

80 

90REM B^i-NUMBER DF RECORDS 
iOOREM C%^::COUNTER 

llOREM TITf-TITLE STR I NS, TIM*=T I ME STRING 
120REM ART*==ARTIST STRINB, YEA*=YEAR STRING 

130 

140E-C^^-0;; C"^-0 

ISOON ERROFv IF ERR017 PROCerror ELSE 180 

1 AOPROCswap 
170 

180MCDEA: REPEAT 

1 0 F F: 0 [; m a i n p r o g r a ft! 

2 0 0 ]; F A % ■"■ 1 T E rJ !=■ 0 n r-; e w _ i rtpti t 

2 1 0 1 F A%~ 2THEN PRGC :::: nan g e_r ecordS 

•7 '2 f; T P Pi rr 'T !...! p N, j pC' r\ (■■'■ ■ ■■ r;;;, 

2 3 0 IF" A % - 4 T H E; N 0 r load 

2 4 ("1 T P A " "■- 'f, T' H E i'-J M 0 D E:' 3 z F-' F": 0 C 1 i 3 1 ? M 0 [) E. 

2 5 0 1 F A % - p hj !v| q n p ;; p F( □ C s e a c h : fl Q D E 6 
260IF A/;=<.-^THEN PROCal ohabet i C3l 
270 IF A%=eTHEN PROCadd_records 
280IF A%==9TF-!EN PROCdelete records 
2°0IF A%-=10THEN PROCend 
300UNTIL FALSE 
3 1 0 

320DEFPRQCmain._program:CLB:P^I«TT«l=(18,3) ; "MENU"' ' 
3 3 0 F R I N T " Y c! u h avB thB igll .Qw i fff , Choi ses : " ' ' 

340PPIMT"1„ Mew input" 
350FRIN'i""2. Change some records" 
360PRINT"3„ Cave" the collection" 
3"^0PRINT"4. Load the collection" 

3S0RRINT"5, List the collection" ' 

3"0PRINT"t„ Search on title" 
400PRINT"7., Put alphabetical" 
4 10FRINT"S„ Add some records" 
420PF-'INT"'^:- „ Delete some records" 
430PRINT"10 End"' 

440 INPUT "Select your choice and press RETyF^**! 
45QEWBPRQC - . 

460 

470DEFPR0Cnew..input3 CLS . , 

430PRINTTAB (3^3) "New input"' 
490INPIJT"Hdw much r ecor do " ; B"; : PR I NT 
SCiOIF B%==0 TF^EN ENDPRGC 

510C%-0: DIM TIT* (B% + 20) , APT* (Ba + 20) , TIM*(E/i+20) , YEAS (B%-t-20) 

t:r'p,;-ippp:.pr,AT J r /^-rOV + ■[ J pp T mm, 

530INF"'UTL. INE''Ti tl e" ; TITf vCa) 
540INPlJTLINE"Arti St " : ART$ (C%) 
550 INPUT "Time" ;TIM*(C%) 
560 1 NPUT " Year " ; YEAS <C%) 
570UNTILC"/.=B;i 
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590 

600DEFPF.:0Cc:hange_rBcords: CLS: C"'.=0 

m&mimtmm^Z)" Change some records"' : IF B%*0 THEN FROnnn ( 'Vhanqe" ^ - ENDPPDC 

i30INPUT"Select your choice and press BiTURN" D7.: IF D%<=0 OR Gy.>4 jmu &30 
640INPLiT"Wich number"; Ch%: IF ChU^O eNDff^dC 

650IF Ch'/AQ OR Ch%>B% THEN PRINT"Can't find that record. Try again. ";gOT0 620 

6600ND"/. GOTO 630,740,800,860 ELSE 620 

680REM Change title 

690PRINT;Ch-/.; " " ; TI T* (ChX) ' : *FX21 , 0 

fCSOlMFWLINE"New ti tl e" ! TIT* <Ch"/. J 

71 OIF FNmore THEN 640 

720ENDPR0C 

730 

?40REM Change Artist 

750PRLNT; Ch7.; " " ; ARTf (Ch"/.) ' : *FX21, 0 
f mtmmLinE "New . Art i st " s mtK j 
7-7 0 IF FhJmore THEN 640 
7S0ENDPRQC 

BOORE.M Change time 

810PRINT;Ch7.; " ";TIT$ (Ch7.) ; "-" ; ARTt (Chy.) ; " " ; TIM$ (ChX) ' : *FX21.0 
i2QINPUT"New ti me" 5 TIM* <Ch"/.) 

@3#IF FNmors THEN 640 

SS4dENDPR0C 

•&50 

860REM Change year 

eyOPRIMTjChy.; " •• ; tit* (ChX) ; ; ART* (Ch%) ; " "; YEA*(Chy.) ' :*FX21,0 
©SO INPUT "New year"; YEA* (G}^%> 
§90 IF FNmore THEN 640 
*OC>eNDPROG 

920DEFPR0Csave!CLS 

''^^''''"3 --^'^ data-! IF B%=:0 THEN PROCno ( "save" ) s ENDPROC 

•^OIs^OPENOUT " records ": Cr,=0: *DPT3, 6 

950PRINT#I, B%: REPEAT: C*-:=C:-:+l 

960PR I NT# I , T I T* ( C7. ) s PR I NT# I , ART* ( C7. ) 

f 70PRlNT#r , Tim i€%> i PRiNTil , VtA* 

9SWNTI LC%=.B:i: CLOSE#I : PRINT' "SAVED" 

9fOPROCwait 
leeOENDPROG 
1010 

1020DEFPR0C1 oad : CLS 

iraomiNTTAe (3, S> "Searching far data"' 
1040l=0PENIN"recDrd5" ; C%^0 

10S0INPUT#I,B-/.: IF BY. THEN PRINTTAB (3, 3) ; "Loading the data "' ELSE ENDPROC 
106ODIW TIT* (BX+20) . ART* (B;i+20> , TIM* (B7.+20) , YEA* (B%+20) 
1070REPEAT: C7.-C:'.+ l 

1 080 1 NPUT# I , T I T* ( CX ) : I NPUT# I , ART* ( C"/. > 

|.#f«}#Hrr#I , TIfW S INPUT* I , YEA* (C5£^ 

I l©OUNTILC%=BX:CLdSE#I :PRINT' "LOADED" 

lIlQPROCwait 

liSeeNDPRDC 

1 130 
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1 J. 40DEFPR0Cad#_(^#cor ds j CLS 
1 ISOPRir-JTTAB (3, 3) ; "Add Bome records."' 
1 160 INPUT "Haw much records add"/.! C%=B% 
II 70 IF add/i=OTHeN 

1. 1E30IF add%>20 THEM PR I NT "Not more tflAn 10 new r#c6rd» please !'■' s GOTO 1160 

I 1 90REPEhT : C"/.=C7.+ 1 : PR I NT ; C7. ; 

1 200 1 NPUTL I NE " Tl 1 1 t tlT* ( c;i > 

L 2 1 0 1 NPUTL I NE " Ar t i 5 1 " ; ARTS ( C% > 

L 220 1 NPUT " T i me " ; T I M* ( C% ) 

tBSO IWPtiT " ¥ear * s I CI > 

I 240UNT I LC%=B%+add% ! B%^C% 

L250ENDPR0C 

I I'^FFF F OCl i St. ; CLS : p ag e/:-= 1 5 : C%=0 

, -npio '),6;0; 19, 1,0; 0; 
1 < i^r^'l r 'hP (3, 3) ; "LIST %h# Cot 1 ecti on . " ' : IF B%=0 THEN PROCno < "II st»^ sgPtSI^'OC 
' ..Title";TAB(41) ^"Artist";TAB^70) 5 "Time Year"' 

] I '"LF b.n'": L:%^C";+1 

132nFFINT;C".; » " 5 TI T$ (C7.) 5 TAB ( 40) 5 "-" ; ART* (CV.) 5 TAB (^i^rs T IMS fC'/^H TAt l*5> f YEIW (C 
s*FX21,0 

1330 IF C7.=page% THEN pageX^pageV. + 15: PRINT' "Press SPACE BAR to canti nua" 3 REPiWU 
TIL ^^T«S:2tCLSsPRINTTABt3, 5 »*l.ist the collection. "nr , Ti tl e" ; TAB i4l) 5: "Artist " 

TAB (70) ; "Time Year" ' 

1340UNTILC%"B%5 PRINT' "Press SPACE BAR for MENU ": REPEAT : UNT I L EET=32 

ISSOENDPROC 

1360 

1370DEFPR0Cdel ets^rscords: CLS 
iS#0#^tMtTAB (3, 3) ; "Delete soBte reeards. " 
1390 IF B%=0 THEN PROCno ( "del ete" ) s ENDPROC 

1 400 1 NPUT " Number record" ; C7. / 

i4ioiF c%<*& m m>m then 1400 

1420PRINT!; CX; " " ; TIT$ <C%) ; ART*(C%) 
1430INPUT"Y/N ";ANSW$ 

l#4lsQBrp' IWSfSCNn", ANSW*) THEN ENDPROC 
1450REPEAT: C7.=C7.+i 

1 460T I T«- ( C7.- i ) ^T I Tf- ( C% ) : ART$ ( C7. - 1 ) -ARTS ( C% ) 
l'4?OT im i C?*- 1 ) »T I M* ( C7. ) : YEA* < C7.-- 1 ) =YE A« ( C7. ) 
1 480UNT I LC7.=B7. : B7.=B7.~ 1 
14 90 IF FNmore THEN 1400 
iSOOENDPROC 

1510 . . ■ 

1520DEFPRQC3earch 
1530VDU19,0,6;0j 19, t,0?05 :CLS 

1540PRINTTAE (3,. 3) "Search on title."'! IF B%=0 THEN PROCno < "search" ) i IHDPTOC ' 

1550INPUT"Ti tie" ; tit* * 

i '56« o«fid«P:ALSEs C7.=0 ! REPEAT 

1570C%=C!^+1 : IF -found THEN 1590 

1580 IF TIT* (C%) =ti t* THEN f ound^TRUE: F7.=C7. 

i»m»i?iL cf.>-B'/. 

1 600 1 F NOTf ound PPDCnot_'f ounds SOTDISSO 
1610IF found PRDCfound 
1620 IF FNfflore THEN 1550 
1 630ENDPR0C 
1 640 

1650DEFPP0C-found 

1 660PR I NT ; F% ; " " 5 T I T* ( F7. ) 5 TAB ( 3S ) 5 " - " ; ART* < F% ) 

1670ENDPRQC 
1680 
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1690DEFPRDCnDt_f Du.nd ' ' • 

1700PF;INT"'Can't find that record. Try again.'" 

l?'3'M5EFPROCal phabet i cal : CLS 

t'r4mnmrm^Z,Z) "Pixt in alphabetical order. UF B%=«=0 THEN PRQCno f "^Iphabp^ti 

1750TIME-0: inc=B'/. DIV 2 
1760REPEAT! IF inc<==0 THEN1810 

1770FnR I=inc+1 TO B% 
1 ■:'80PR0Cpai r (I , I - i nc ) 

1 S OC) i n = i n c D T \' 
ISIOUMTIL inc<>0 

immmm"lt ttmk "iTim/im^" sec. f«sr ■■iiE%*45" items.- 
ie30PR0Cw|iit ■ ■ 

1 S60DEFPP0CSWftP ( i , j ) 
1870CALL SWftP!i,TIT*(i • „-^'IT*(j) 
1 880C«.I^ SWAP% , ART* ( i ) , ART* ( j ) 
1 S90CALL 3WAP% , T IMf (i ) ^TIM«<j> 
1900CALL BWAF:^, ^r'EA* (1 ,YEA*( j) 

1.920 

1930DEFPRCCsrror s CLS 

,.t940PR I NT's REPORT SPRINT" at line " ; ERL 

1950FR0Cwait 

1 960ENDFR0G 

1970 

l<?80DEFPP0Cswap 

l;<?9pF0R EX==0 TO 2 STEP 2:P:i»8<DOO 
2«H>tOPT EJ; 

2010.SWAP% Ll>A?t600:CMP#2sBEa ok \ No of parameters must be 2 

2020JMP &B2BE \ (Arguments) 

2030., error JMFSiSCOe ^ (Type mismatch) 

2040. ok LDA«t603 1 Cf1P&6068 BNE error 

2050TAY 

SO'&Ovrsal CMP#5 ! BEQ start 

20"^0„ i nteger CMP#'^! : BEQ start 

2060. byte CMP#0 : BEQ start2 

20»0. string CMP#129.»gNE error s LDY#4 

2100. start DEY 

2110,start2 LD.X#6 

212©. cc LDA?ir&00, X:STA?.70, X:DEX:BNE cc 

2 1 30 „ WIS- LDA ) , TAX 

2 1 40LDA ( S^74 ) , Y s STA ( S<7 1 ) , Y 
3lildtXAsSTA<?^74) ,,Y 
2160DEY:BPLwiss 
2170RTS 

2 I ©01 NEXTsENDPRDC 

2 1 90 

2200DEFPR0Cpai r ( i , j 5 

221 OIF THEN ENDPROC 

2220 IF ARf*Ci)<ART*<^j) THEN PROCSWAP ( i , j ) : PROCpai r ( j , j~i nc > 

2230ENDPRQC 
2240 
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:250DEFPRQCwait 

:260T IME^O; REPEAT : UNT I L T I ME=500 

:280 

290DEFPRDCna (reason*) 

'300PPINT"There' are no records to "; reason*: PROCwai t 
310ENDPRaC 

'320 

'330DEFFNmore 

340PRINT' "Are there any more records to change" : INPUT" <Y/N>" j ANBW* 

350 IF INSTR("Yy", ANSW*) THEN ==1 ELSE =0 

360 

370DEFPR0Cend 
380CLS:END 



De Electron heeft de moaeli ikheid o» fottten t« bcil«f«jhil«n. vn hsaft dvartoc tMe« 

soeciale variabelen: ERR en ERL. 

ERR aeeft het foutnufflaer van de laatste fout. ERL aeeft het reaeinuffimer van ce 
laatsis fou^. ERR 17 is de escaoe-toets. AIs deze toets inaedruKt worct, sorinat 
'imk' atmvmmtt inr^cg naar fict Mwma. Bij eventuele andcr* fouten Mbrdt naar de 
error-Drocedure aesaronaen. 
PRINT" = PRINT:PRINT:PRiNT 

IWUTLIIC (r.530) wordt aebruikt om ook titels en/of artiesten met komma's (') 
binnen te kunnen halen. In olaats van INPUT LINE kan de strina met een komma ook 

met " inaevoerd worden (als de Electron een komma teaenkomt bij inae- 

voerde strinas in hit INPUT-statement, neoeert hij alles rechts van de komma). 
Bii PROCnoCchanoe") in regal 610 wbrdt de string 'change' Meegegeven b;j de 
PROCnoC ") aanroBo. Wtvnfesr krijgft reason* (r.2290) in DEFPRODneCPtf«ii}n*} 

de inhoud 'change'. , 

IF FNfflore THEN 640 (r.710). Hier sorinat de komouter naar DEFFNiYiore (r.2330). 
Regel 2350 is geen fout, maar de manier van BBC-Basic om aan DEFFNmore de waarce 
0 iif 1 te aeven. 

In reael 1280 staat noa zo'n leuk BBC-Basic statement: VDU 19. 0. 6:0; 19, 1. 0;0; 
Dit zi.in eiaenlijk 2 VDU-statements in een: cus VDU 19.0.6:0; en (VDU) 19, U0:0; 
Met het eerste statement wordt de achterarondkleur zwart (=0) geher-orocrae- 
fficwrd iti cyaan (=6). Het tweede stuk maakt van de vooraroifli lileur wit (=lf de 
kleitr zwart (=0). Het effekt van dit alles is dat de hierna volgende irnkSit os 
het beeldscherm in zwart oa cyaan komt, hetceen bij 80 karakters oo ee» pegel 
(oo een TV) een betere leesbaarheid aeeft (naar mi in mening). 

Besorekew ue nu het alohabetisch sorteren dat olaatsvindt oo ce artiest. Er 
wordt een machinetaal routine aebruikt om het sorteren zo snel mooeli ik te mai<er.. 
(Het sorteren van ong. 85 olafen duurt bij mij ca. 14 sec. ) 

Urn - Mietliljliitade wordt aan het beain van het oroarawna (r. 160) eenmalig geassem- 
bleeri;'"^ wmtAf de aeheuaenlokaties tiBQO naar boven (tot max. &E00 waar de Basic 
orogram area beaint). "Het 'haakie ooenen' aeeft het beain aan van de machine- 
taal routine, hef'haakje sluiten' het einde ervan. 

P% is de "oseudo prograe counter" en wordt door de assembler oe|)ruikt m idres- 
sen voor branch en jOmo inetrukties te berettenen; tevw^s he«-<ii»t«t®iiMt -^mm ile 
machinekode. 

In reael 2010 t/m 2040 wordt aekeken of er twee variaoelen van oeli^k tyse 
aanaeboden worden. Zo niet, dan volat een foutmelding. Er eoeten 1. 4 of 5 bytes 
aewisseld worden. Dit wordt in reael 2050 tot reael 2090 uit het tvoenummer af- 
aeleid en in Y ooaeboraen. Reael 2120 verolaatst de geaevens van het oarameter- 
block OD oagina 6'naar het in Basic vrije aedeelt van de zero oaae. Regel 2130 
tot 2160 verwisselen het luiste aantal bytes met tussenoDSlaa in X. De oedachte 
achter deze manier van swaooen is, dat niet de strinainhoud verwisseld wordt 
(dit zou, als de twee strinas niet even lang zijn, gehin^enruiAte kosten), maar 
dat in het "strina information block" oo oaae 6 de pointers naar de strings ver- 
wisseld Mor^n: dit kost amm gelie4iimru|«t§. 

M' ns^^'im&h:m m&H )^mn-ma[ WPfiOCs die eerttafr m *m drdfraimi^ aan- 

guroeoen worden. 
mn nog het INSTR kommando, om niet te vergeten. flls de strina "Yy" in mm* 
voorkent, is INSTR 'waar^ (TRUE); en INSTR wordt dus als "Boo lean" funktie 
gebruikt (r.2^>}. 
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by Coen Kleipool, Val de Perier, F-83310 Cogolin, France, t. (94) 54.43.82 



For those of you who think that things come cheaper by the 
dozen, here is some good news. Another Junior Dos has come out, which 
makes this Dos65 the fourth of its kind after Elektor's Ohio Dos, Proton 
Dos and Coen van Nieuwenhoven Dos. Whj another Dos ? Not so easy to ans- 
i®* fetife apparently our members maem Still not satisfied and are willing 
to improve. 

I can wholeheartedly endorse this new Dos65; speed, command 
structure and flexibility are impressive and are of another olass coapared 
to the previous three Dos. 

Brouwers Baby . It has been writtett by our member Ad Brou- 
wer who is a graduate Delft computing student and as such a man of experien- 
ce on big machines. It is not surprising that this Dos has a lot of si- 
milarities with Unix. Unix is basically a multi-user Dos for 
and Brouwer has boiled this down to a single-ij^ji^z; Oos wXth m sia^«i: em3£ 
easy-to-learn command system. 

Unix has the reputation to be a powerful tool for the prof essioaa^^! liii ^ 
Headacbe to the occasional user, but this siny?lifie4 Unix 

Unix, being a multi-user system, has been conceived to work 
with one or more intelligent terminals and the basic Dqs65 also needs a 
terminal. Later versions were developed to be used wiMi' a W^-KtmeSi smA 
a screen memory in the computer itself. This solution simplifies matters 
and reduces costs to some extent, but has the disadvantage that the screen 
m^pry occupies valuable computor memory and fiiziyiK^nore microprocessor 
time is needed to process the screen after each operation. If your com- 

putor has only 64 Kbytes of memery, this is a serious consideration and I 
would myself prefer the terminal solution at any time. 

Hardware . To implement Dos65 you will need to construct an 
Eurocard which carries the 1793 Floppy Controller and a 6821 l/O port. 
Our member Cees Bootsma has a PC-board available but it is also feasable 
to produce this in wirewrap or roadrunner. I had a lot of trouble buil- 
ding the PC-board, mainly due to a lack in doeiimentatlon « TOie *5' v»lt 
and the ground grid need to be improved and some parts do not fit very well 
in the proper places, but after having made these modifications it works 
fine. ' - 

The 1793 FDC is a very powerful chip. It provides both sin- 
gle and double density (IBM system 34 MEM) and has ODt-chlp track and sec- 
tor registers which enables automatic sector search. The 372 PDC, used in 
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Proton 'Wm-r. 3q@s £nv« tiies« fssiliM^ and Is incaj^^« i^f Krritlng in 
trtiG doiible-aensity. 

Double density packs 320 Kbytes on a double-sided 40-tracks 
diskette eUid as data are more condensed, you will also get a higher trans- 
fer rate I Dos65 still surprises me with its speed; loading Moser or 
Micro-ade (8 Kbytes) tilies less than 3 seconds ai>d ntost of this time is 
spend searching for the proper track. My son uses Prot^&a DQfSt afid together 
we concluded that Dos65 is at least 4 times as fast. 

Software . Dos65 softwarf conf lata of 4.4i££^<tnt peurts: 

- the monitor 

- tihe kernel 

- the utilities 

- the editor. 

The Monitor . This occupies 4 Kbytes in page F and compri- i 

ses the basic l/O routines which are very conveniently accessed through 
jvunp tables. Monitor commands are special in the sense that they are not 
needed lhating fi&Mml Dos ^petation; the enable the user to insert or delete 
data in memory, call hex- and asccidumps, blockmove and relocate, read and 
write cassettes, show microprocessor internal registers, search for certain 
■data M mmmestr "Mlii® INMf^ iiil^'|'l%eg:ing prpgranraing and debug- 

ging. 

The kernel . The kernel is the very cornerstone of the BoiS* 
it is 16 Kbytes long and is read from disk into ram right after startup. 
Here you will find the vital routines and commands which must be available 
all the time. Tllere are the typical Unix redirect ccnamands which will al- 
low you to manage in- and output of a command in other directions that the 
usual keyboard in- and screen out- routines. For instance, you can call 
input from a disk and redirect the output to the printer or to a«other disk 
file, or a modem for that matter. 

You can also input commands from a diskfile instead of ty- 
^^gf M l£»nf m&A itm^mt ccaimands m fpli; ilieii li^u^ji and ini- 

tialising sequences. 

During all these operations there is no need to create, open 
of close files; Dos65 takes care of all t)^s nutquiatically. Nor is there 
a "compress" cosnand to fill out eg^ty iqp«stts em l^^^yp d|t|^r ^« tile hand- 
ler uses an ISAM (Index Sequential Access Method) tf pit WW file in the 
first available open space and normally no rearreui^^^qpjl^'lii^ssary . 

At this time Dos65 is in^lpibi« 6# 'tn^itincr i^*'1:l;9&ks disks; 
in the area where the Track Sector Lists of the 4 open files are located ■ ' 

(SIOOO - £17FF) is insufficient memory apace to accommodate 80 tracks, but 
M Brouwer told me he will soon sd^*« f^is probl«to. 

'j"' Utilities . The utilities co$ipri9«s a nuinber of commands 
t^i^lh on disk and are only read inte/^^imfe»ry irtiftn needed. Most of them 

reside in the same place, that is S 800 for the aujaller and S 4000 for the 
larger programs. Their infrequent use does not merit a permanent stay in 
#(frtive memory. In a Dos computer diskfi^fts aine e^siUfmcvS a diredt exten- 
sion of memory and everything is done to occupy the least possible space 
of active ram which should be available to the user for work in progress. 
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In any case reading-in a utility only takes a fraction of 
a second and the softwa*e remains in memory until writlSil^ i^er by the next 
utility. The only inconvenience is that it makes the use of two drives 
almost mandatory. Otherwise a user-drive is not immediately available and 
ycm ^411 have to change disks frequently. 

But the system can be used with a single diskdrive as a star- 
ter* You can read in a utility from the systemdisk, then change disks and 
eKeoiitie the utility which no«r xmsMss ±sx mmm^ with a liC (last command) 
instruction. 

Typical utilities are: delete, list, print or format a fi- 
le, ^Tenamm a filer cltange a filemode, etc* ^am £LlemoAe, which is written 
on the diskette with the file allows you to protect a file against deleting 
or writing and to designate it as an ascci-, binary- or command file. 
You will find this feature very useful once you start using it. 

The Brouwer Editor . I will save this item for a next arti- 
cle. Ad Brouwers Editor is a full-screen editor and my 12-year old Hazel- 
tine is not quite ready for its impact. It is a tired old terminal and I 
will need to inject some fresh blood before he can cope with the full capa- 
bilities of this editor. 

My comments : A truly excellent Dos which merits to be im- 
pleiienitej all KlM-meadsters. It tvammfostms your Junior into a teal f>ro- 
fessional machine. We will need better hardware and a good metnual (espe- 
cially for Dos beginners) but these are minor problems. 

A more serious problem will be to come to a unif 1<kS Kiffiel«l> 
memory mapping in order to render our club-software compatible. More and 
more people are scrapping the standard and interface cards, thereby leaving 
the ©Id junior compatibility. We should ftow a^Jeee on a standard memory- 
map* starting from page FF downwards. 

This should provide us with an uninterupted ram coverage from 
too tilJ^ the start-address of Dos. I have scaB€s ideas on this laatter and I 
will Gome back to this soon. 
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ft iNk andirft 

Mt ktpfwHnv van 



yiMBENMMLEBr 

difl bazig zijn of bazig zijn 
NIDi-SmhNiztri, zaaia 
, 7 van YaaalMof di JX 3 P, JX I P, Japiter 6 vm 
liland, aan ciapitara< 
talf zaak ik aUa tadMiadia 
RIDIHwf an 
intarfi 

Skatr Un raahtia(t) naar 
Stafmk^Uii 

^KlWNMvMMilB Aft A 

1 - 1990 NOElUlMrr 
af naar tat adraa van da raddttii. 
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BiiBa tijd galadan it flcadaaic Sarvica irif ^«fi bMk 
ai Mfkt fjikaiM, aan vartalino vM lUlipiJw 
Mtrii van ILP. StapbaMan, ovtr hn jfijiiMMlili; |i 
•Bdiinitaal vaar da &Sl- procaaMn ^^^^ 
Hat aaaft aan opaaaaing van da divaraa imtndrtiai, 
marait da tat van da 002 baitaat. Hat dMl van da 
imtraktiei nardt aitaelaid at mcHUtfH' vaailMiMM 
a a ga va n baa zij gabralkt 
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KEMMEIR 



Ruud UPhOff 



IN PLflftTS VAN HET VERTROUyDE Vlft (5522) IS DE C64 UlTGERUST MET ME 
SOORTGELIJK CHIP'S VflN HET TYPE 6526. HET LEEK HIJ GOED OEZE CHIP ffiii 
«flT NADER TOE TE LIGHTEN, flflNGEZIEN ER ZEER MDOIE DINGEN «E TE DOEN ZIJN 
DIE NIET 20 UlTVQERIG IN DE HANDBOEKEN VAN CQWQDORE BESCHREVEN ZIJN. EEN 

mmm m m. "tod- urarvan he in ftiiiii fflOGRANiA gebhuik haken. 

Voordat U nu aiieen de object-code uat intikkm tnet ik U een kieine 
uitdasim doen: Er z!t een fewelclise iittmder in Ket prosramii die m vts 
na het afdrukken van de source ontdekte. IK heb hesi er toen toch Maar in 
laten zitten. ondat het een prachtia voorheeld is hoe ie ondanks het se- 
bruik van structuren toch no9 helenaal de Hist in Hunt saan als Je tewn 
een eenvoudiae vuistresel zondiai ! Aan U on «iJ te laten weten wat die 
blunder nu precies is. Er is seen priJs aan verbondfn> par ml zuiien Ne 
de naaM van de eerste soede inzender bekend Miken. Liit tat mm m # 
redact ie ! 

Het prosrama Nordt in de interruptroiitfne OPKnoMen net SYS 9*4896 en 
de klok kan twrden aelijk gezet na SYS 9*4096+3. Steeds als U nu de Fl- 
toets inKdrukt houdti zat de iuiste '.iJd in de linker bovenhoek van het 
scheri te zien ilin. it m losiaten van Fl ziet het schem er Meet mt ' 
zoals tevoren. Er gaat dus 9e«i inforwatie van het schertu verloren. Na 
sebruik van de ISSTORE toets is de klok afsekoppeldi naar staat niet stil 
en U kunt hem met SYS 9*^% iteer aankoppelen. 

VEEL PLEZIER -IE VOOR LISTING VOlGENDE PAGIMh'S 

I II! iiiuiiiHiiii i iiinuiiuiiiiiiiii i niHimii i uinin"ii » inim«i" t» "«"""'"" * " ' """' 

WWEENWNLHl Bi 

ffltwir het antMoord of de aolossina aan de redaktie. deze 
imt ervaor dat de inzender od de hooote Mrdt oesteld en 
tr Mntt MtMR iMtahm af erover qioublicferd kan wrdM. 
mSk. Mk aMiif«i MtMR Minftraiird k«Mm wrdn.) 

Marcel van Daro hteft de velMnde Mijlifiiv in xijn tM- 
tuvr coamiter JUNIOR aamwbraclit: 

- de adrtidecaderina is vervanoen dear em volledige adres- 
deceder in Uekkni van vicr K, itaarbii twi blakkn xi in 
aitgeoaard ttt S blakkm v« 1 K (K0..k7): 

- de standaardMnitor zit na ao FC0O..FFFF! 

- 00 de olaats van de Eonw ao di ilMiHrmMi tit m tm 
2016 ( 2 K ctatiidie MM); 

- de 6502 if vervanom dear de 6SC02 van RKkiwll. 
Alt ik IN Hn BrtariiM aoila ao pagina 2, 3, 10, ID. IE af IF 
(2016) toi gaat Sat aititekind. flit ik het oraoraaM laat 
lean, dan mrdBn er achter een halebael bytet veranderd! 
Dit gebaart telkem aet dezelfde oehaagenDlaataen. Elan art^ 

Iraaaa in PIfHtaa haaft achter nerpw laat van;!! 
I vaadinofioannint Ml ik gaeanlnilaMri. Me 

■nk ik Ml liMitriliR? 



Marcal van Doro haaft noa aeer te vraoen. 
Hi ) heeft een IBM 3742 oekreoen. Bit aooaraat bestaat uit 
tNee a inch drives, tiwe toetsenborden. een aonitor Helke 
■et behwla van am saiapal in teaaan is QadaaU, een flinke 
vaadino. m m •ier n i wiii f m» MHHwrena ^ m m m 

' '^^ % laM ik iriit eait Nrt m» 



Mle IP* xim iMfM 

is. 

Nu Mil ik zo'n driva 
niet hae. Hat ik ail 



il|n JUNIOR hanoan, aaar ife eart 

het valoandet 

-Hat daet flaeiy^ caiiknIUR'i im kan m aek 

- Hat is het verschil titsam 5 inch en S inch ? 

- Nat is het verschil tussen OHIO en IBM - forMat ? 

iiuHHi i in i mm iiiiiiii i i i i i i HHww eHHtfaw 



Marcel hoeft nao aan vraagi 

Me haert er ittfanMtiejaaciaal oeridit an 

iAm giMpeM am bm aidi) wt 



40 Erafische orooraMa's vaor de CoMwdore 64; 
Leer orooraaaaran aet haoe resolutie in Basic, 
aan 8 iach Een niauit biek vertaald tear Nak van Veen. 

ISO aagiN** HFI. 2^90b ION 10 13SS IIS i 
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moo 


1* CUfTODOIt 64 PRECISION CLOCK * 




flUTa 


t* (C) ioM) uPtlFF 19BS * 




nHB 








1 




ooca 
nnlB 


iKElffiiiL. RQUriNES 




HfV 


sii r .f • 
t 




Hod ntnlwL. LHnUJ I 


Ith »FFD2 




flttQfl UTDUni PLHlTkl 

nnil KcnNHLi Utiln 


DEF frru- 




VIW nctaiLinBTOr 


' Iff WW ' 




(11110 iNtraWLa auntT 


ncr Accoc 
utr wh3r 




£14 OA 

vlzv 


{ 










01 All 






VIM LnaiincT 






fl!6l OJOH^ilBE 






0170 


T 




VloB 


>ntnnHL HDauLUIc 




VI3V 


? 




U^ulo OLKttN. HntH 


ACT" Afll/illfl 




mi a fYif no adca 


Ucr fUOBB 




SK>tB miiMWili>iv« no 
BZzv UMKTEibwLuR 


DcF HBSo 




OIOTIX TDfl DDK tCTTIID 


ACT AfiTiA 




on A a 






nSn 


iOff il tuun iQKS ti.OiO. CLUu\) 




09701 TTMTu ccmiinc 
Viiv itninaatUINua 


utr fUuH 




anoBt ccpflunc 
ttcoB acUJNus 


ncc #iiMa 
Utr f Dun 




u^jd ninuita 


Ucr $Uu9h 




(MaD nuuKs 


ncc tnniD 
utr vlAJoo 




mm n (w cDcaciirv 


ncc *nmr 




uo^u u.uu\>niiuc 


ncc Anrac 
wr vOUr 






• 




HUB 

•Mb 


iLUnSTflNTS 




area 






GLANK 


OEF $20 






dEF ^ 




looolD inVHLlU 


ncTT Arc 
Itr frr 




mQA Pi KPV 
B03B rlinCT 


ncc u/i 
Utr *(M 




BftN 


■ 

1 




BWXB 






nwiB 


Din 






ART 






t 




OASa CklTRV 
Vffwii cnini 


DUIU inlULLULn 




otbb aci 


uuiu aci« lint 




0470 


• 




8480 


PROG GET.0ECII1flL.DIGIT 


2KFF 


0490 


EXEC KERWL.CHRIN 




0500 


CflSE CARRY CMP #'9fl 


2B4191 


0510 


EXEC SET. BYTE. INVALID 




0520 


UHEN /CARRY CHP #'0 


mm 


0530 


EXEC SET.IIYTE.INVflLIO 




0540 


ENCASE 


m 




ENPRQC 



1l 



sf E S □ 





Km 




mn 


na 4 n An 4 l nrw 

9B1B flDl4l93 


0SBI 
8598 


9I1E C342FN8 


8E88 


9122 w7791 


8618 


982S n342 


8628 


9127 a)l483 


8638 




8648 




nreim 

HbaH 


aEof lTJR WU 


BbbH 




Ub/D 




ocoa 




IhI 




man 

0788 


3833 flZn 


arT4 n 

8718 


9I3B fll98 


0728 


3v3D 18 


0730 


9l3E 2I39FF 


0740 


9141 M 


0750 




0760 




0770 


3042 286331 


8788 


9845 28E49aS8F 


0790 


g84A A28B 


8888 




8618 


QBAr HQ 
-HIT H 


acna 

VO£V 


00*31 007C 


ODTa 

nov 




8848 




8858 


□flCTT TO 

%57 38 


8860 


W5B E912 


8878 

finnn 


SBSfi alN3 


0880 
0890 


18 


0988 


SdE @12 


0910 




8928 




8938 


OKI HKiraa 


In4l9 


QBCi AAOAnP 

alW (ttmDL 


noca 




i9eW 




0071] 


UBS 288298 


8388 


9B78flDeBDC 


RHV 


9i73 289FF 


1888 


SB7E4C4S9e 


1818 


9179 2iED9B 


1128 


987C II4F91 


1838 


g87F^7791 


1848 




1858 




mmmmmmtm0mt>mimi>im 



m 

I 

PROC INIT. CLOCK 
im IRQ.Rtt1.\^T0R 
IF /ZERO CMP #<aQCK 

STfl IRQ. COPY 

LDfl KCLOCK 

STfl IRQ.RflH.(«CTOR 
ENIF 

LDfl IRQ.Rfln.VECTORtl 
IF /ZERO CHP i>aQCK 

STfl IRQ.COPY+1 

LDfl i) CLOCK 

STfl IRQ.RflM.\€CTDR^i 
ENIF 

LDX »<ENTRY 
LDY ©ENTRY 
CLC 

EXEC KERNnL.HEHTQP 

ENPROC 

PROC CLOCK 
EXEC SAVE. CLOCK. AREA 
WHILE ZERO EXa TBT.Fl 

LDX 18 

LDfl HOURS 

PHP flH/PM FUB IN BIT 7 
AND i$7F 

SED 

IF ZERO HP 1112 ft.N.>il tLK 

SEC 

S8C t$12 

ENIF 

If MINUS PLP THUS P.M. 

ac 

ADCI»|||tP.li 

ENIF 
CLD 

EXEC DISPLAY. UimCBUl MOMS 

LDfl niNUTES 

EXEC DISPLAY. WITH. COLON HINUTES 
LDfl SECONDS 

EXEC DISPLAY. WITMVT. COLON SECOIOS 
LDA TENTH.SECQNDS 
EXEC KEMflLOSKIY 
ENUHILE 

EXEC ENSURE.CLOCK.WIIE 
EXEC REMOVE. CLOCK 
JHP (IRQ.COPY) 
POP 
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18EB 


m 




1878 
1888 


s 
1 

PROC DISPLAY. UlTHOirr.CDUM 


91^48 


1090 


PHB 


1183 4ft 


1180 


LSR 




1118 


UR 


9B85 4A 


1120 


UR 


aesB 4A 


1130 


im 


mmm 


1148 


EXEC DISPLAY. a.lil1BP 


908fl G8 


1150 


PLfl 


9886 298F 


11S0 


AND m 


9880 289198 


1178 


DISPLAY.A.NUHBER 


9898 Gl 


1180 






1130 


1 ' ■ ■ 




1288 


P8DC DISPLAY. A. NUMBER 


9891 0968 


1210 


m #$68 TO SCREN HODE 


3833 3DflB84 


1228 


STA SCREEN. AREA. X 




1238 


U)A CHARACTER. COLOR 


9839 9B«D8 


1218 


snt msMSB^ 

INX 


3B3C ES 


12^ 


9B3>G8 


12E8 


S4PRDC 




1278 


7 




12B8 


PRDC DISPLAY. yiTH. COLON 


989E 288298 


1298 


EXa DISPLAY. HITHOUT. COLON 


9aAl fl90fl 


1388 


LDfl #' :-t30 


38ft3 283130 


1318 


EXEC DISPLAY. A. NUMBER (COLON) 


mmm 


1328 
1338 


■ 

I 




1348 


PROC ¥T,TItC 




1358 


R0^ 


30fl7 28FE30 • 


13B8 


EXEC SET. HOURS 


98M C924BaF9 


1378 


UNTIL /CARRY CHP 1*24 


98% timmi 




CASE ZERO CHP i»88 


38B2 fi912 


13M 


LDA «$12 USE 12H HITH P.H. FLAG 


38B4 0388 


1488 




9nK 4iX4gB£9i39887 


U18 


M^RY CHP itl3 (PH) 


98BDF8 


1428 


SED 


9I8E3B 


1438 


SEC 


9nF £912 


1448 


SBC ni2 SET AN Urm PH FLAG 




14S8 


CLO 


9BC2 898B 


1468 


ORR l$88 PK FLAG 




1478 


ENCASE 


9BG4iDeiOG 


1488 


STfl H0UI8 . -^ , 
REPEAT ^ ^ 




1498 


mm mm 


1S88 


'*%i^SET.HINUTB 


9flCfl C9S0B0F9 


1518 


UNTIL /CARRY CHP 1168 


38CE 8D0ADC 


1^ 


STA HINUTES 




15^ 


1#EfiT 


3801 280091 


1548 


EXEC SET. SECONDS 


98D4 C9&0B8F3 




UNTIL /CARRY CHP K60 






Sm SECONDS 


30DB R900 


1578 


LDA 1188 ^ 


38QD 808800 


1^ 


STA BnH.ilODN% 


-mmm 


1598 


Em mmmsLmx. 


3Ka> uV 


1G8B 
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2sEi 5 D 



98E4 flSCS 
90EE 09040082 



98EC 61 



90ED flDSEOC 
90F0 0980 
90F2 8D0EDC 
9aF5 fiD0FDC 
g8F8 29F7 
98Ffl 8D0FOC 
98FD 68 



30FE fl948 
9188 211091 
9185 61 



9104 A94D 
9106 281831 
9189 a 



910A fl953 
9iaC 281891 
910F 68 



9118 283391 
9113 2eD2F 
9115 2BD2FF 

9119 283B91 

91 IC 2886983811 

9121 8ft 

9122 8A 

9123 8A 
3124 8A 
91-25 8D8991 
9128 2B869m 
912D 230F 

312F 8D8991 
310 

9132 68 



1618 
1628 
1638 
1640 
1658 
1118 
1678 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1730 



1810 
1820 
1830 
1840 
1850 
1860 
1870 



1890 
1380 
1918 
1928 
1938 
1948 
1958 
1968 
1978 
13B8 
1938 



2010 
2020 
2030 
2040 



2868 
2878 



mam 
2188 



PflG 

PROC TEST.Fl 

LDfl ♦LflST.KEY 

IF ZERO Off IFl.KEY 
LDA tQUOTLNIIE 

ENIF 
ENPROC 

1 

PROC ENSURE. CLOCK. NODE 

LDft CLOCK. FREQUENCY 

ORR 1188 (50 HZ) 

STfl CLOCK. FREQUENCY 

LDfl CLOCK. NODE 

m «$R (NO ALflRH) 

STfl CLGCK.HQDE 
ENPROC 

PROC SET. HOURS 
LDfl #' H 

EXEC GET.IEGIWL.8yiE 

ENPROC 

PROC SET.HIHITES 

LDfl 

EXEC GET. DECIHflL. BYTE 
ENPROC 

■ 

PROC SET.aCONDS 

LDfl rs 

EXEC GET.OECI(lflL.ByTE 

ENPROC 

I 

PROC GET.DECIHflL.BYTE 
EXEC PRINT. CRLF 
EXEC KERNflL.CHROUT 
EXEC KERNflL.CHROUT 
EXEC PRINT, fl. BLANK 
IF /MINUS Em GET.DECINflLDIQIT 

ftSL 

flSL 

ftSL 

flSL 

STfl TEHPORflRY 

IF /HINUS EXEC ET.ISm.DI6IT 
flND M0F 
ORfl TEHPORflRY 
ENIF 
ENIF 
ENPROC 
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2111 


PflG 




21^ 


• 




2131 


PRK PRINT. CRLF 


9133 48 


2S4a 


PHA 


9134 A90D 


2151 


LDA KSH 


9136 2iD2FF 


2ia 


E)£C i£iM()LCHiOJT 


9139 68 


2171 


PLR 


9i3R m 


nwk 


QfRDC 




21% 
^1 


• 

PROC PRINT.A.HJWK 


913B fl92B 


2218 




913) 28D2F 


ma 


EXEC KEnHfiL.QffiQUT 


9148 68 


2Z3a 


ENPROC 




2241 


■ 




22Sfl 


PRK SET. BYTE. INVALID 


9141 283691 


2268 


EXEC PRINT. A.BLfflilK 


9144 A33F 


2278 


LDA f? 


9146 28D2FF 


ZS8 


EXEC KERIW..CHROUT 


9149 283391 


2211 


EXEC PRINT. CraJ 




2SN 




9i€ 68 


2318 






2328 


a 

J L 




2S38 




91^ fl2lll 


2348 


LDX HflB 




23S8 


ItPEAT 


9151 BD7991 


23G8 




9154 wim 


2Sl% 


STfl SREEN AlEfl, X 


9157 


2388 


LDA SAVE. AREA 2<X 


91S) 9DfleD8 


2^ 


STfl COLOR. ARBitX 


915D E8 


2488 


INX 


91S EVSSQKF 


2418 


ilfTIl 7FRn rPK 


91^ 61 




bnrnuw 




2438 


■ 




2448 


PflDC SRIUL CLOCK. AiB) 


9ie3 fl2N 


24^ 


LDX #$88 




2468 


ICPEAT 


9165 mm 


2478 


LDA SCREEN A(O.X 


91G8 9D7991 


2488 


STA SAVE. AREA. l.X 

win wITm nnkna AT A 


9166 6DMD8 


2498 


LDA COLOR fflJEA, X 

^arn wW^Uiia rll\L-ni A 


916E 9DS191 


2SI8 


STA 3)VE.AREA 2.X 


9171 E8 


2518 


INX 

Ann 


9172 E8l98DflEF 


2S28 


UNTIL ZEffl Q>X IS 

uiii iu LtiHi uTA mi 


9176 68 


2538 


ENPROC 




2548 




3177 


2550 IRQ. COPY 


VAR 2 


9179 


2560 SAVE. AREA. 1 


VAR 8 


9181 


2578 SRVE.AREfi.1 




9189 


2588 rnmm 






2598 


a 






END 



i TEJ<OaP: 

I FLOPPY-DRIVE KflST \mOR 2 X 

I NORMftLE DRIVES OF 4 X SLIM- 

I LINE, MET IN6EB0UUDE VKDING 

I 5V-5fl EN 12V-5fi. 

I PRIJS* HFL. 60,=. 

I TEL. < OlfifiO - 3S&0 

I 

I 8" FDOS OTNTROLLERKfWRT NET 
I FD 1771 HFL, 90,00 

I 2 X 8K ROM/ROM KftfiRT MET 2 X 
I 8K ROM EN IN EPROM' S FDOS 1. 2 
I VOOR 8" HFL. 100.00 

I VERKOOP TEN BEHOEVE VAN EEN 
I BEL6ISCH LID. 

I VOOR IISFORMOTIE OF BEZICHTI- 
I 6INB: 

I TEL. : 01807 - 19881 

I VERZENDKOSTEN ZIJN NIET IN 

I DE PRIJS INBEGREPEN. 



I ALOIS OTTER 

I NEUNKIRCHEN. QESTSRIKICH 
I 

i ICH HABE DEN SAMSON COMPUTER 

I FERTIG AUS6EBAUT. SCHREIBE 

I DERZEIT AUF DEM WORDPROZEB- 

I SOR VON DER LOYS SYSTEMDIS- 

I CETTE VON ELECTOR. 

I F0L6ENDE PUNKTE UAEREN 

I MICH BESOMDERS WICHTIG: 

I 1) WIE ARBEITET MAN MIT 

I EDITOR? 

I 2) UIE UERDEN PRC^RAMME 

I DISK GESPEICHERT OD. 

I DISK GELADEN? 

I 3) UIE WERD EIN PROBftfMR 6E- 

I STfWTET? 

I 4) HELCHE SYSTEMSPEZIFISCHEN 

I PUNKTE SIND AUSSEROEM 

I NOCH ZU IBRCHTEN? 



FtER 
DEM 

VON 



918A 918A 88 



MEIN EN6LISCH 1ST LEIDER 
NICHT SO GUT, BITTE SCHREIBE 
IHRE ANTUORT AN DIE REDAK- 
TION IN DEUTSCH. 
ICH UUERDE MICH SEHR FREUEN 
UENN ICH AUF DIESE FRA6EN 
EINE ANTUORT BEKOHMEN. 
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UITBREIDINGEN OP OS-SSO VS. 3 



B.Klein . 
DiedemiMig 119 
6706 CM 

In nov/dec 1982 oubliceerde ELEKTUUR een ontwerp voor een flooov- 
interface ten behoeve van de JUNIOR conouter. Oeze interface werd 
ontworoen voor het OHIO SCIENTIFIC 08-6SD operatfilQ systeM. Naast 
een aantal sterke ounten heeft DS-65D ook een aantftl ullaesoroken 
ZMakke kanten. Een aroot aantal DOS functies al* het schri jv«i|, hfft 
verwijderen en veraiideren van filenaeen in de directory, het fii>* 
matteren van een diskette en het uitlisten van een directory, kixnnm 
alleen met behulo van het BASIC oroaraMia BEXEC* uitgevoerd worden. 
Uiteraard is dit ere t»^<nAkja iiNd«l h«l bm^kmnM dat d« E^lf . . ^. 
interoreter alti jd in Het felletigen eoel itlMin tn i«t iwi eviilltiwl 
net inaetoetst oroaraema overschreven wordt. De hier beschreven 
uitbreidinaen oo het DOS elimineren deze tekortkomingen Qoeddeels. 

NIEUME DOS COMMANDO'S 



9 



D« yolqwide eoMnando' s Morden aan het DOS tiMiQavov^d f 

DI 

Beeft de directory vm mm dlskttft* 

SD <tracknu«imer> ^ . ™ 

Vmrvmnq^ i^t oude DI eo««ando in 0S~65D 

FO 

Formatteert een diskette en schrijft een leoe ditwetOf^ Bd 
track 12 

CP <f ilenaam>=<eerste track). (laatste track> 
Schrijft een nieuwe filenaam in de directory met biibehorendt 
track range. Een filenaam tfig^Maximaal 6 |fJNyi|f fff |lM|f 
Het eerste karakter moet letter zijn rifilf f*'^PII 
Dit commando doet ook noo een controle oo onbestaanbare of 
onlooische t racknummers. De tracks van de file Morden niet 
aeinitialiseerd. 
9oorbeeld : CR DATAl-01.03 

Schriift een file DATAl met een lenete van 3 tfltelNI tn de 
directory. 

.,, .. - ^ ■ 

DE <filenaam> 

INimijdert mm fllfffwiii uit de directory 

CH <f ilBnaaml>=<filenaam2> 
Verandert filenaaml in filenaam2 

NU 

Beeft het aantal tracks dat de oo dat moMmt aaniMiiiQii BASIC 
of assembler sourcefile in beslag neemt. 

Dan noa vier 's«fHUiii*}il iit'^'^lHi' M|i.|N^ zijn M$ yVPder* uit- ' 
breidingen. .^''^ - 

LAadt de FORTH interoreter/tfOAoiltr 

WF ■ 
Warme start FORTH 

MA 

L-aadt de macro assim^ler van C. Meser 

ws 

Warme start van de macro assembler 

Oe uitbreidinaen nemen ongeveer 1.5 K in beslap en Morden door 
een aangepaste bsotstraoloader vanaf adres tEOOO in het geheufwi 




aeladen. Dit qebied mag u twslist ni«t Mcr bwchriivw om het 

DOS te later) werken. . . 

IMPLEMENTEREN 

Om de DOS uitbreidinaen oo UM svstMM Mvrkvnd ta kPtlUMI mw% U 

de volaende orocedure volaen s 

1. CoDieer een svteemdisk " ( tutorial disk V ). 

2. Zorq ervoor dat de DOS uitbreidinaen vanaf adres *E000 in h»t 
aeheuaen staan. 

3. Doe de copieschi if in drivf .ft tn »0!ring,.nt«r hpt DOS. 

4. Lees een leae directory iH-^l > ■ ,5 • ' , < . 

fi«Cfl 2E79=lI,3 (return) 

5. Reset het systeem en breno met het hexadseiiMl* lofllMHiberd van 
de JUNIOR de volaende wijzigi|igen fan i ^ 

adres data i 1^. ; 

2E79 4F 53 36 . v..-.-- ' 

35 44 33-- ,. . 

00 14 ■ 
2fi4B 20 12 E5 
2ft8B BD 00 EO 
2P95 BD 01 EO 
2ft9C BD 03 EO 
2flfl0 BD 02 EO 

En keer met de <PC> toets teruo naar hat DOS 

6. Schriif de directory wea t 
fl»Sfl 12, l=2E7g/l (return) 
Schriif track 1 wea t 
fi«Sfl 01, 1=2000/8 (return) 

Schri if de uitbreidinaan oo track 14 i 
ft»Sfl i4, l=E000/8 

7. Lees het track 0 R/W utility in s 
fl*Cfl 0200=06,4 (return) 

ft*GO 0200 (return) > 

Na 'COMMOND' toetst u in : 

R4200 (return) 

En na noq eens ' COMMAND' : 

E (return) 

6. Reset het systeem. Nu moet u yanaf adres 44200 de aanqeoaste 
bootstrao intoetsen. Het handiaste aaat dit waarschi inli ik met 
de hand yia het toetsenbord van de JUNIOR. Als allt« inaatofftst 
en gecontroleerd is qaan we terua naar hel vim d9 wS) tMt«^ 

9. Start oonieuw het track 0 R/W utility s 
fl*GO 0200 (return) 

Na 'COMMAND' toetst u in : 
W4200/2200,B (return) 

Als dat qebeurd is moet het mogelijk zijn da coaoutar mat da 

nieuwe svteemdisk oo te startan t 

<RST) FFl7 (60) <RUB OUT) 

Het svsteem aaldt zich nu mat i 

0S-65D V3.4 

A* 

Nu schri iven we twee filenamen in de directorv : 
A*CR BEXeC*=15, 17 (return) 
A»CR C0PIER=18, 19 (return) 
Vervolaens laden Ma i 
A*Bft (return) 

10. Na de Ok oromot stoooen we de oude svsteemdisk in drive A en 
aeven het commando RUN"BEXEC*" . We kiezen ootie 9 om het svt 
te unlocken en stoooen de nieuwe schiif in drive ft. Met het 
commando DISK!"PU BEXEC*" schri iven we de file wea. Tenalotte 
laden we noq het orooramma C0PI£R van de oude svstaamsehi if an 
schri iven deze ook od de nieuwe svsteemschi jf Meq. 



Of u de overioe utilities ook noa od de nieuwe schiif milt latten 
maq u zelf uitmaken. In leder qeval is het nu makkelifi fl^INi 
o« de benodigde filenamen in de directory te zetten. 
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>PASS 2 







0010 






0020 






0030 






0040 






0050 






0060 






0070 






0080 






0090 






0100 






0110 






0120 






0130 






0140 






0150 






0160 






0170 






0180 






0190 






0200 






0210 






0220 






0230 






0240 






0250 






0260 






0270 






0280 






0290 






0300 






0310 






0320 






0330 






0340 






0350 






0360 






0370 






0380 






0390 






0400 






0410 






0420 






0430 






0440 






0450 






0460 






0470 






0480 






0490 






0500 






0510 






0520 






0530 






0540 






0550 


EOOO- 


57 53 E2 


0560 


E003- 


22 




E004- 


52 45 rC 


0570 


E007- 


2B 




EOOB- 


45 49 2E 




EOOB- 


2B 




EOOC- 


41 53 OD 


0590 


EOOF- 


20 




EOIO- 


42 41 ES 


osoo 


E013- 


20 




E014- 


43 41 10 


0610 


E017- 


2B 






44 39 BF 


0620 



*♦* UITBREIDINGEN OP DS-65D V3. 3 *** 

BERT KLEIN 
DIEDENWEG 119 
6706 CM WABENINGEN 



*** 



FLOPPY LOflD/WRITE POINTER 



VECL 
VECH 



.DE fFE 
.DE *FF 



flDRESSEN IN PftSINfl 0 



tEMPl 
TEMP2 
TEMP3 
TEMP4 



.DE $£0 
.DE »E4 
.DE $E5 
.DE *EB 



;fiORESSEN IN 0S-65D 



§ECTNUMB 

PfiGENUMB 

RfiMLOC 

LOftDHEftD 

SETTK 

INITS 

HOME 

SELDRIVE 

REfiDSECTOR 

DUMPSECTOR 

UNLOAD 

ERR? 

KERNEL 

DIRfiD 

ftECCHfl 

PRCHO 

CRLF 

PRBYTE 

STROUT 

REftDBUFFER 

CHECK 

DISTR 



$265E 
$265F 
DE $2300 
DE $2754 
.DE »26BC 
•DE $2768 
$2663 
$29C6 
.DE $2967 
.DE $27E1 
.DE $2761 
.DE $2fl4B 
.DE $2051 
.DE »2E79 



.DE 
.DE 



. DE 

DE 



TE LEZEN/SCHRIJVEN SECTOR 
OONTOL TE SCHRIJVEN POGINO'S 
BEVOT HOOGSTE PAG I NO IN RfW 
ZET DE KOP OP DE DISK 
STOPT NOOR TRACK IN OCCU 
INITIOLISEERT EEN DISK 
STUURT DE KOP NOOR TRACK 0 
SELECTEERT DRIVE IN OCCU 
lEEST EEN SECTOR IN 
SCHRIJFT ESN SECTOR WEG 
HOOLT D£ KOP VON DE DISK flF 
DOS FOUTMELDINGSRCUTINE 
DOS COMMANDO VERTALE.^ 
ODRES VON DE DIRECTORY BUFFER 



.DE $2340 ALGEMENE INPUT RCUTINE 

.DE $2343 ALGEMENE OUTPUT ROUTIPC 

. DE $2D6A CORRIOGE RETURN/LINE FEED 

.DE $2D92 PRINT EEN BYTE 

.DE $2D73 PRINT EEN STRING 

.DE $2CE4 LEEST EEN KARAKTER LIT DE INPUTBUFFER 

.DE $2D5B CONTROLE OP EEN " IN Bl^f^ 
.DE *2AC6 ;EEN I/O DISTRIBUTOR 



DOS UITBREIDINGEN BE8INNEN HIER IM« 

' .BA < 

dONTTftBLE .BY 'MS* tE2 $22 

. BY *RE' tFC «2B 

,iY »EM' t2B •2B 

.BY *m* SDD «2A 

.BY 'Bfl' fES $20 

. BY 'Cft» tlO *2B 

.BY 'D9* $BF tsa 
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. n ^r-i ' i=t 



EOIB- 
EOIC- 
EOIF- 
E020- 
E023- 
E024- 
E027- 
E02B- 
E02B- 
E02C- 
E02F- 
E030- 
E033- 
E034- 
E037- 
E038- 
E03B- 
E03C- 
E03F- 
E040- 
E043- 
E044- 
E047- 
E048- 
E04B- 
E04C- 
E04E- 
E050- 
E052- 
E054- 
E056- 
E058- 
E05fl- 
E05C- 
E05E- 
E060- 
E062- 
E064- 
E066- 
E068- 
E06fl- 
E06C- 
E06E- 
E070- 



28 
36 



2fl 

53 44 
2B 

45 58 

2B 

47 4F 45 

2B 

48 4F 62 
26 

49 4E 54 
2B 

49 4F 82 

2B 

4C 4F fl6 

2B 

4D 45 C5 

2B 

50 55 DC 
2B 

58 51 21 
2C 
53 
2C 

53 45 

2C 

46 4F 

75 El 
44 49 
93 EO 

43 52 
05 E2 

44 45 
68 E4 
43 48 
D5 E4 
4E 55 
24 E6 
46 54 
49 E6 
57 46 
62 E6 
4D 41 

76 E6 
00 



41 



27 
42 



E071- 



E099- 

Eogc- 

E09E- 
EOfil- 
£004- 
E0fi7- 
EOflfl- 
EOflD- 
EOBO- 
E0B3- 
E0B6- 
E0B7- 
EOBFI- 
EOBB- 
EOBE- 
EOCl- 
E0C4- 
E0C7- 
EOCfl- 
EOCD- 
EODO- 
£003- 



54 27 
12 



P9 

20 BC 26 
20 F4 EO 
20 73 2D 
20 20 20 
2D 2D 20 
44 69 72 
65 63 74 
6F 72 79 
20 

2D 2D OD 

Ofl 

46 69 6C 
65 20 6E 
61 6D 65 
20 20 20 
54 72 61 
63 6B 20 
72 61 6E 
67 65 OD 



0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 
0760 
0770 
0780 
0790 
0800 
08 1 0 
0820 
0830 
0840 
0850 
0860 
0870 
0380 
0890 
0900 
0910 
0920 
0930 
0940 ; 

0950 ;RUIMTE 
0960 : 
0970 
0980 ; 

0990 ; DIRECT 

1000 • 

1010 5lRECT 

1020 

1030 

1040 

1050 

1060 

1070 



lOSO 
1090 

1100 



BY 'SD' 



.BY 'HO' 



. BY 
. BY 
. BY 
. BY 
.BY 



10' 



XQ' 



♦28 


$2B 


$36 


$2B 


$45 


$2B 


*62 


$26 


$54 


$2B 


$82 


$2B 


$06 


$2B 


$C5 


$2B 


$DC 


$2B 


$21 


$2C 


$27 


$2C 


*42 


$2C 



.BY 'FO' 

.SI rORMflT-1 

.BY 'DI' 

,SI DIRECT-1 

.BY 'CR' 

.SI CREOTE-l 

. BY ' DE' 

.SI DELETE- 1 

.BY 'CH' 

.SI CHflNBE-1 

. BY ' NU' 

.SI NUMBER-1 

.BY 'FT' 

.SI FORTH-: 

.BY 'WF' 

.SI WFORTH-i 

. BY ' Mfl' 

,SI MflETED-1 

.BY $00 

VOOR EVENTUELE LATERE UITBREIDINSEN 
.DS 40 

BEEFT DE DIRECTORY Vfl.M SEN DISKE^i^E 

JSR LDfiDHESD :Z£T D£ KOP OP DE DISK 

LDfl #$12 

JSR SETTK :STUUR DE KO^ NflflR TRACK 12 
JSR REfiDDIR ;lEES DE DIRECTORY IN 
JSR ST ROUT : PRINT DE VC^GE.MDE S'!"RIM5 
.BY $20 $20 $20 
.BY '— ' $20 'Directory' $20 



.BY *— ' %m *Ofi 

.W 'Fil» »20 ♦20 ♦20 

.BY 'Trac^k range* ♦OD ♦©« 
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E0D4- 
E0D7- 
EODPI- 
EODD- 
EOEO- 
E0E3- 
E0E6- 
E0E9- 
EOEB- 
EOEE- 
EOFl- 

E0F4- 
E0F6- 
E0F8- 
E0F9- 
EOFC- 
EOFF- 
ElOO- 
E102- 
E105- 

Eioa- 

ElOB- 
ElOD- 
EllO- 

Elll- 
E113- 
E115- 
E118- 
Elig- 
EllB- 
EllD- 
EllF- 
E121- 
E124- 
E125- 
E127- 
£129- 
E12C- 
E12E- 
£130- 

E131- 
E132- 
E133- 
E135- 
E13e- 

Eisa- 

E13ft- 
E13D- 
E13E- 
E13F- 
E141- 
E143- 
£145- 
£147- 
E14fi- 

E14D- 
E14F- 
£152- 
E155- 
£158- 
£150- 
E15C- 
E15E- 
£161- 
E152- 
E164- 
£167- 
E16ft- 



26 



2D 2D 2D 
2D 2D 2D 
2D 2D 2D 
2D 2D 2D 
2D 2D 2D 
2D 2D 2D 
2D 2D 2D 
2D 2D 
OD 00 00 
20 11 El 
4C 61 27 

02 00 
86 FE 

EB 

8E 5E 
OE 00 
CO 

86 FF 
20 67 29 
EE 5E 26 
OE 00 23 
86 FF 
20 67 2S 
50 

00 00 
34 FE 
OE 00 23 
CO 

86 FF 
Bl FE 
C9 23 
FO 10 
20 30 El 
C8 

DO F4 
E6 FF 
OD 00 23 
C5 FF 
10 EB 
60 

98 
18 

69 08 
08 

DO E3 
FO ED 

20 43 23 

ca 

98 

29 07 
C9 06 
FO 08 
Bl FE 
20 43 23 
4C 3D El 

84 £0 
20 73 2D 
20 20 20 
20 20 20 
20 00 
04 £0 
Bl FE 
20 32 213 
C8 

84 EO 
20 73 2D 
20 2D 20 
00 



1110 



BY 



1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1 350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 



1670 
1680 
1690 
1700 
1710 
1720 
1730 



Aeoddir 



tiRDIRECT 



MftME 



INCVEC 



NEXtNflME 



liRLIIME 



(iRLINE2 



.BY *0D $00 $00 

JSR PRDIRECT :PRINT DE DIRECTORY 

JMP UNLOOD :KOP OMHOOG + EXIT 



LDX 
STX 
INX 
STX 
LDX 
DEX 
STX 
JSR 
INC 
LDX 
STX 
JSR 
RTS 

LDY 
STY 
LDX 
DEX 
STX 
LDO 
CMP 
BEQ 
JSR 
I NY 
BNE 
INC 
LDO 
CMP 
BPL 
RTS 



#$00 ;ZET H£T LOSE DEEL VON 

*VECL :DE LOfiDPOlNTES 

SECTNUMB :l£ES VON SECTCR 1 

ROMLOC :H00GSTE POGINO IN Rfl.il 
:-l 

»VECH ;IN LOOD WECTCR 
REODSECTOR :L£ES SECTOR IN 

SEC-^NUMB iSECTOR 2 

ROMLOC iU&m POINTER +1 POSIKA 
♦VECH 

REfiDSECTOR sLlSS-teTOR 2 IN 



#$00 

*VECL 

ROMLOC 

*VECH 
(VECL), Y 

NEXTNOME 
PRLINE 

NOME 

*VECH 

ROMLOC 

♦VECH 

NOME 



;ZET D£ POINTER OP HET 
;BE8IN VAN DS DIRECTBRY 



:lE£S BYTE 
;IS HE'^ EEN LEGE c<lOh^S ? 

:Z0 JO, VQLGE.MDE 
: PRINT DE FIuENOfir^ UIT 

; SPRING TERUB 
;V0L6ENDE PflSiNA 

:LOOTS"!"E POGINO GEDfiOM ? 
;Z0 NIET, TERUe 



TYO ;Y-1WE3{: + 8 
CLC 

ODC #«d8 
TOY 

BNE NOME 
BEQ IMCVEC 



:SC'RING TC^ HElE PA3I.\iO Sl»«i* IS 
;OND£RS VECTOR OONPOSSE.M 



JSR PRCHfi 

I NY ■ " 
TYO 

AND #$07 
CMP #$06 
BEQ PRLINE2 
LDO (VECL),Y 
JSR PRCHO 
JMP INDEX 



iPRINT EERSTE KARAKTER 
KARAKTER 

;MOSKEER BITS 3-7 

;6 KORAKTE^S GEDOhM ? 

;Z0 JA TROCK RftmZ P=!IN~E.\ 

:Z0 HE£ KARAKTER PRINTEiNi 



STY *TEMP1 :REDT Y INDEX 

JSR STROUT ;PRII\)T 7 SPOTIES 

.BY *20 $20 »aO »20 *20 $20 §20 *00 



tPRINT 



LDY *TEMP1 
LDO (VECL) 
JSR PRBYtt 
INY 
STY *TEMP1 
JSR STROUT 
. BY *20 ' *20 too 



:HERSTEL Y INDEX 

START TRACK 



23 



E 5 a E! 



E 1 SB- 
El 6D- 
E16F- 
£172- 
E175- 



m 

Bl 



EO 
FE 

20 92 2D 
20 2D 
60 



£176- 20 
El 79 
E17C 
E17F 
El 82 
El 85 
El 88 
E18B 



2D 



£194- 
£196- 

flSF- 
Elfl2- 
ElfiS- 
El 08' 

iim 

flflF- 
llBi- 

Eisg- 

ElBC- 
EiBE- 
ilCl- 

iics- 



53 

5: 



S1C7' 
EiC9' 
EICB' 
EICE 
ElDl 
ilM' 
EiD6 
eiD8 
EIDB 
EIDC 
EIDE 
ElEl 
E1E4 
E1E7 
ElEfl 
El ED' 
EIFO 
£1F3 
E1F6 



OD Off SO 
55 54 20 
41 20 53 
59 53 S4 
45 4D 44 
49 53 4B 
20 49 4£ 
20 .44 m 

20 41 
20 41 
44 20 50 
52 45 53 
20 3C 
45 54 
S5 :S2 4£ 

W 4-0 
Ct ft " 
DO 76 
ft9 01 
20 C6 29 
10 63 26 
20 54 27 
09 11 
20 BC 26 
09 79 

m 2€ 

85 FF 
09 03 
8D 5E 2i 
20 67 2f 
- ft9 12 
20 BC 26 
84 FE 



flE 00 23 
Cfi 

- 86 FF 
20 67 29 

- EE 5E 26 
20 67 29 
20 61 27 
20 73 2D 
OD Oft Si 
55 54 20 
41 20 42 
4C 41 4E 



1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 

1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 



LDY *TEMP1 
LDfl (VECL),Y 
JSR PRBYTE 
JSR CRLF 
RTS 



:LOflTSTE TRACK 



i^tywii/LW mm 



BIJ 0S-65D STfifiT DE DIRECTORY OP TRACK 12. 
OP ZICHZELF IS DIT flL ONBELUKKIG OMDflT HET 
BETEKENT DOT FILES DIE TRACK 12 KRUISEN 
VERBODEN ZIJN. HELAAS IS DAAR NIETS flflN TE 
DOEN, ALTHANS NIET ALS WE DS ZAAK NOB REDElIJK 
COMPATIBEL WILLEN HOUDEN. EEN TWEEDE MERKWfWt- 
DI6HEID IS DAT OP TRACK 12, SECTOR 3 EN 4 IWEE 
MACHLMETAALROUTINES STAAN ©IE DOOR OHIO ALS 
DE PUT/BET OVERLAYS WORDEN fiifl*i6EDUID. BIJ HET 
WERKEN MET RANDOM FILES MOETEN DEZE ROUTINES 
AANWEZIG ZIJN, ANDERS IS HET NIET MOSELIJK 
OM RECORDS T£ LEZEN EIM TE SCHRIJVEN. 
DAAROM WORDEN DEZE SECTOREN EERST VAN EEN 
SYSiElWPIS^ GELEZEN OM DAARNA OP DE GEFOi?- 

matte^ii schijf te woi?de!m webgeschreven. 

Format jsr strout ?print s-ring 

tmnm^mt a sys""emdisk in drive a' 



4E i&m 



^1 



2030 
2040 
2050 
2060 
2070 
2080 

20fo 



2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 

mm 



2230 
2240 
2250 
2260 
2270 
2280 



,f¥ ' AND P^ESS C;HTL;l?t>» *00 



JS8 RECCHff 
OUP #*0D 
BNE BRANCH 
LDA #»01 
JSR SELDRIVE 
JSR HOME 
JSR LOADHEAD 
LDA #«11 
JSR SiTTK 
LDA t«7g 
STA »VECL 
LDA #*2E 
STA «VECH 
LDA #*03 
ST» SECTNUMB 

READSECTOR 
LDA #$12 
JSR SETTK 
STY *VECL 
LDX RAMLOC 
DEX 

STX »VECH 
JSR READSECTOR 
INC SECTNUMB 

'■im SnlobS :kop omhoog 

JSR STROUT 

.BY $0D *0A 'PUT A BLANK DISKETTE IN DRIVE A' 



;IS HET EEN RE'^URX 7 
;Z0 NEE, EXIT,. 

:S ELECTEE R D^IVE ft 
;KDP NAAR TRACK 0 

;ZET DE KCS* m M. IHIHIJ*' 

;STfiP NiaAR TRACK 11 
:lQhDVECTDR = ♦2E79 



;DP SECTOR 3 S-^flfiT EHN 
;_Ea£ DIRECTORY 
;L£ES SECTOR I.M 

;STAP NAAR TRACK 12 
: Y=$00 

;T0P VAN HET SEHEUSEN -1 



;LEES SECTQ« 3 



24 



oe: 




E1F9 
EIFC 
EIFF 
E202 
E205 
E208 
E20B 
E20E 
E211 
E214 
E217 
E21fl 
E21D 
E220 
E222 
E225 
E227 
E229 
E22C 
E22F 
E231 
E234 
£238 
E238 
E23fl 
E23C 
E23E 
E241 
E244- 
E247- 
E249- 
E24C- 
E24F- 
E251- 
E253- 
E256^ 
£257- 
£259- 
E25C- 
E25F- 
£262- 
£265- 
£267- 
£26fl- 
£26D- 
E2fiE- 
£270- 
E272- 
E274- 
£276- 
E278- 
E27fl- 
E27D- 
E280- 

£283- 
£286- 
£289- 



4B 
49 
45 
45 



44 
4B 
54 



- 4 



- 5: 



54 

20 49 
4E 20 44 
49 56 
20 41 
20 41 4E 
44 20 50 
45 



53 20 
52 45 



53 
3C 
54 
52 4E 



- fi9 



?7 

n 



- SD 



55 

3E 00 
20 4i') 23 
C9 OD 
DO 57 
20 68 
20 54 
12 

20 BC 26 
fl9 79 
85 FE 
09 2E 
85 FF 
09 01 

5E 26 
8D 5F 26 
20 El 27 
C6 FF 
EE 5E 26 
20 El 27 

09 00 

85 FE 

OE 00 23 
CO 

86 FF 

EE 5E 26 
20 El 27 
EE 5E 26 
20 El 27 
02 07 
BD 83 E2 
9D 79 2E 
CA 

10 F7 
09 79 

85 FF 
09 01 

8D 5E 26 
20 El 
4C 61 



27 
^7 



44 49 52 

45 43 54 
12 12 



2290 



2300 
2310 

2320 BRONCH 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

24B0 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 D I SLOOP 

2590 

2600 

2610 

262i 

2630 

2640 

2650 

2660 

2670 

2680 

2690 FORMOTEND 
2700 ; 
2710 TABLE 



.BY ' AND < RETURN)' *0# 



JSR RECCHfl 

CMP #$0D jlS WIT EEl\i RETURN' ? 
BNE FORMOTEMD ;Z0 NEE, EXIT 

JSR INITS 'INITIftLISEER D£ DISK 
JSR LOAOHEflD ;ZET BE KOP 0P DE S 

LDA #$12 
JSR SETTK 
LDA #t79 
STA *VECL 
LDA #«2E 
STA *VECH 
LDA #*01 
STA SECTNUMB 
STA PAGEiNftll"® . ;LE\'G'E IS i «kgl!\iA 

JSR DUMPSECTOt ;SCHRIJ- S'lCTSt w£S 

DEC *VECH ;HERSTE;^ WRITE VECTOR 
INC SECTNUMB : SECTOR 2 

JSR DUMPSECTO.R :SCHRIJF SECTOR WE3 



:STAP NAAR TRACK 12 
;ZET DE WRITE ViSTSR 



;SCHRIjyiM 



LDA #*00 
STA *VECL 
UJX RAMLOC 
D£X 

STX ttVECH 
INC SECTNUMB 
JSR DUMPSECTOR 
INC SECTNUMB 
JSR DUMPSECTOR 
LDX #«07 
LDA TABLE, X 
STA DIRAD, X 
DEX 

BPL DIRLODP 
LDA #*7g 
STA #VECL 
LDA #*2E 
STA #VECH 
LDA *$01 
STA SECTNUMB 
JSR DUMPSECTOR 



:Z£T NIEUWE WRITE POINTER 



:schs:j- szct:^ azs 

: SECTOR 4 

:SCHRIJ- SECTOR 'nZS 
;X IS D£ L^-S-'-E.LE:? 
;ZET FI^ENOA.r 'DIRECT' 
•IN DE DIRECTORY 



Z£T DE WRITE PGINiTER 



: SECTOR 1 

iSCHRIJF SECTOR WES 



JMP UNLOAD 0m OMH6oS + EXIT 
,BY 'DIRECT' §12 ♦12 



2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 

2ai<c 



DOS COMMANDO'S DIE VIA BASIC WORDEN BEGEVEN VIA 
EEN DISK! COMMANDO, WORDEN IN DE EDIT BUFFER 
GEZET, ECHTER ZONDER AFSLUITENDE RETURN. DEZE 
ROUTINE DOET DAT ALSNOG. HET PRINCIPE ZIT H£M 
HIERIN DAT PAGINA 0 BIJ EEN DOS COWr^ONDO VfiNUIT 

liiiS P,SS5-r°^«E''§i„2/l SWAPPER VONOF ODRES $2F79 
BERED WORDT. OP ADRES *2Fg5 (HET VIJFDE KARAKTER 
«~"Q iMpuT BUFFER) KIJKEN WE DAN OF ER 

(ASCII $21). IS DAT INDERDOAD ZO DON 



2^fSt 5 D JEH 



KEIMMER 











2830 










2840 










2850 










2860 










2870 


E2aB- 


flD 


95 


2F 


2880 


E28E- 


C9 


21 




2890 


E290- 


DO 


OE 




2900 


£292- 


flD 


00 


23 


2910 


E295- 


ftO 


FF 




2920 


E297- 


85 


FF 




2930 


£299- 


84 


FE 




2940 


E29B- 


ca 






2950 


E29C- 


09 


OD 




2960 


E29E- 


91 


FE 




2970 


E2fl©- 60 






2980 










2990 










3000 










3010 


F03 


1F93 4292 


-6225 










3010 










3020 


E2fll- 


flO 


00 




3030 


E2ft3- 


4C 


Zl 


E4 


3040 










3050 










3060 










3070 










3080 










3090 


E2fl6- 


20 


BB 


E2 


3100 


E2fl9- 


20 


40 


E3 


3110 


E2flC- 


fl9 


01 




3120 




8D 


5E 


26 


3130 




20 


53 


E3 


3140 




20 


6B 


E3 


3150 


E2B7- 


BO 


E8 




3160 


E2B9- 


EE 


5E 


26 


3170 




20 


53 


E3 


3180 


E2BF- 


20 


6B 


E3 


3190 


E2C2- 


BO 


DD 




3200 


E2C4- 


CE 


5E 


26 


3210 


E2C7- 


20 


53 


E3 


3220 


E2Cfl- 


20 


EB 


E3 


3230 


E2CD- 


86 


E6 




3240 


E2CF- 


FO 


OB 




3250 


E2D1- 


EE 


5E 


26 


3260 


E2D4- 


20 


53 


E3 


3270 


E2D7- 


20 


EB 


E3 


3280 


E2Dfi- 


66 


E6 




3290 


E2DC- 


20 


OE 


E4 


3300 


E2DF- 


85 


E4 




3310 


E2E1- 


20 


5B 


2D 


3320 


E2E4- 


20 


OE 


E4 


3330 


E2E7- 


85 


E5 




3340 


E2E9- 


05 


E4 




3350 


E2EB- 


20 


FF 


E3 


3360 


E2EE- 


BO 


55 




3370 


E2F0- 


flS 


E5 




3380 


E2F2- 


C9 


12 




3390 


E2F4- 


90 


08 




3400 


E2F6~ 


fl5 


E4 




3410 


E2F8- 


C9 


12 




3420 


E2Ffl- 


90 


49 




3430 


E2FC- 


05 


E5 




3440 


E2FE- 


20 


FF 


E3 


3450 


E301- 


BO 


42 




3460 


E303- 


05 


E4 




3470 


E305- 


C5 


E5 




3480 


E307- 


FO 


02 




3490 


E309- 


BO 


30 




3500 


E30B- 


06 


E6 




3510 



;MOGEN WE ERVON UITGflON DOT BASIC DE TOOL IS 
;WflflRIN WE OP DOT MOMENT WEfiKEN, EN VOEiSEN m W 
;BETREFFENDE RETURN TOE. 



If^TEST 



BOSEND 



LDO *2F95 
CMP #$21 
BNE BOSEND 
LDO ROMLOC 
LDY #$FF 
STO *VECH 
STY *VECL 
I NY :Y=$00 
LDO »*0D 
STft (VECD.Y 
RTS 



;IS HET EEN ! ? 

;HOOSSTE PflSINft IN ROM 
jHOOeSTE BYTE IN DEZE 



; RETURN 



;EN ZET DE RETURN 



LI KLEIN3.M0S 



;'FILE OLREODY EXISTS' ERROR UITGONG VON C^^EOTE 
f^OUND 



LDY #$00 
JMP PRERROR 



; INDEX IN TOBEL 
;FOUTMELDINe 



CREATE SCHRIJFT EEN FILENAAM IN DE DIRECTQ^RV 



cm 



CRB 



CR6 



JSR BflSTEST 
JSR TR12 
LDO #$01 
STO SECTNUME 
JSR REOD 
JSR COMPOR 
BCS FOUND 
INC SECTNUMB 
JSR REOD 
JSR COMPOR 
BCS FOUND 
DEC SECTNUMB 
JSR READ 
JSR GETPLfiCE 
STX *TEMP4 
BEQ CRO 
INC SECTNUMB 
JSR READ 
JSR GETPLOCE 
STX *TEMP4 
JSR GETBYTE 
STO *TEMP2 
JSR CHECK 
JSR BETBYTE 
STO *TEMP3 
LDA *TEMP2 
JSR TCHECK 
BCS BADTRACK 
LDO *TEMP3 
CMP #$12 
BCC CRB 
LDO *TEMP2 
CMP #$12 
BCC BADTRACK 
LDO *TEMP3 
JSR TCHECK 
BCS BODTRACK 
LDA #TEMP2 
CMP *TEMP3 
BEQ CRG 
BCS BADTRACK 
LDX #TEMP4 



;mmiC IN GEHEUGEN ? 
;SrpP NAAR TRACK 12 

; SECTOR 1 
LEES SECTOR IN DE DIRECTORY 
FILENOAM Al- IN DE DIRECTORY ? 
ZD ja,, FOU^^ElDINS 

;SECTOR 2 
LEES SECTOR IN DE DIRECTO.^Y 
FILENAAM AL IN DE DIRECTORY ? 
ZD Jfl, FOUTMELDINS 

:SECTOR 1 
LEES SECTOR 

:ZOEK LEGE PLOATS 
RED IND^X 

SPRING RLS £R EEN LEGE PLAATS 

; SECTOR 2 
LEES SECTOR 

:ZOEK LESE 
RED INDEX 
LEES START TRACK yiT fUPFtll 
BEWAOR HEM 

IS DE KOMMO AONWEZIS ? 

LEES LAATSTE TRACK UIT BUFFER 

START TRACK 

CONTROLEER TROCKNUMMER 

; SPRING OP EEN FQUT 
LflfiTSTE TRACK > 12 ? 

ZO NEE, SPRING 

ZO J A CONTROLEER OF 

START TRACK <12 IS 

;FOUT OLS DOT ZO IS 

; CONTROLEER TROCKNUMMER 

: SPRING OP EEN FOUT 
; CONTROLLER OF LAATSTE 
; TRACK >■ liflSTE IS 

;Z0 NIET, FDUT«ELDINe 
;HERSTEL X INDEX 



28 



E30D- 


ftO 


i 

03 




E30F- 


8C 


E5 


2C 


E312- 


20 


E4 


2C 


E315- 


C9 


3D 




E317- 


FC) 


06 




E319- 


90 


79 


2E 


E31C- 


EB 






E31D- 


DO 


F3 




E31F- 


ftC 


E5 


2C 


E322- 


CO 


Ofl 




E324- 


FO 


09 




E326- 


fl9 


20 




E328- 


9D 


79 


2E 


E32B- 


ES 






E32C- 


C8 






E32D- 


DO 


F3 




E32F- 


fl5 


E4 




E331- 


9D 


79 


2E 


£334- 


Ea 






E335- 


05 


E5 




E337- 


9D 


79 


2E 


E33fl- 


fl9 


01 




E33C- 


BD 


5F 


26 


E33F- 


20 


5F 


E3 




4C 


61 


27 


£345- 


flCl 


16 




E347- 


4C 


31 


E4 


E34fl~ 


20 


54 


27 


E34D- 


fi9 


12 




E34F- 


20 


BC 


26 


E352- 


60 






E3S3~ 




79 




E355- 


85 


FE 




E357- 


flS 






E359~ 


85 


FF 




E35B- 


20 


67 


29 


E35E- 


60 






E35F- 


fig 


79 




E361- 


85 


Ft 




E363- 


fl9 


2E 




E365- 


85 


FF 




E367- 


20 


El 


27 


E36fl- 


60 







E36B- 


02 


00 




E36D- 


PIO 


02 




E36F- 


8C 


E5 


2C 


E372- 


20 


E4 


2C 


E375- 


C9 


20 




E377- 


DO 


28 




E379- 


20 


E4 


2C 


E37C- 


C9 


OD 





3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 
3710 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3800 
3810 
3820 
3830 
3840 
3850 
3860 
3870 
3880 
3890 
3900 
3910 
3920 
3930 
3940 
3950 
3960 
3970 
3980 
3990 
4000 
4010 
4020 
4030 
4O40 
4050 
4060 
4070 
4O80 
4090 
4100 
4110 
4120 
4130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 



CRD 
CRE 



CRF 



iftDTRftCK 

■ 

tai2 
kEm 



DIRDUMP 



LDY 
STY 
JSR 
CMP 
BEQ 
STfl 
INX 
BNE 
LDY 
CPY 
BEQ 
LDft 
STft 
INX 
I NY 
BNE 
LDfl 
STfl 
INX 
LDfl 
STfi 
LDfl 
STfl 
JSR 
JMP 



#*03 ;HERSTEL BUFFER POtNTlR 
*2CE5 

RERDBUFFER ;HflflL KflRflKTE,9 UIT BUFFER 

#'= ;DE '=• SLUIT DE FiLENflflM flF 

CRD ; SPRING flLS W£ H£M GEVDNDEN HE9BEN 

DIRftD, X ;ZET HET KflRflKTER VAN DE FILE- 

;NflflM IN DE DIRECTORY 
CRC ; SPRING 

$2CE5 ; INDEX IN INPU"!" BUFFER 
#*Ofl ;6 KflRflKTE.RS GEHflD ? 

CRF ;Z0 Jfi SPRING 

#$20 ;ZET EEN SPflTIE 

DIRflD, X ;IN DE DIRECTORY 

;VERHOOG INDEX EN LUSTE-LER 

CRE ;EN SPRING 

♦TEMP2 ;Z£T S^flRT TRACK 
DIRflD, X :IN DE DIRECTORY 

*TEMP3 :ZE"" LflATSTE TRACK 

DIRAD,X ;IN DE DIRECTORY 

#*01 :flANTAL TE SCHRIJVEN PAGINfl'S 

PflGENUMB 

DIRDUMP ;SCHRIJF DIRECTORY WEB 

UNLOAD sESt EXIT 



LDY #BAD-FEXIST -SEEF BAD TRACK IMUMBiS 

JMP PRERROR ;FOLTM£;.D!NS 



JSR LDADHEAD 
LDA #$12 
JSR SETTK 
RTS 



:ZET VI KC:? CP DE «MJF 
:EN STAP NAAR TRACK 12 



LDfl #$79 
STfl *VECL 
LDfl #$2E 
STA *VECH 
JSR REflDSECTOR 
RTS 



;LEES EEN SEC'T'GR VAN TRACK 12 
:IN DE DIRECTORY B'JFFER 



;SCHRIJ- EEN SllfCtfltY NIAAR 
: TRACK 12 



LDA #$79 
STA *VEC:- 
LDfl #$2E 
STfl *VECH 
JSR D'JMPSECTOR 
RTS 



COMPAR IS EEN SUBROUTINE DIE DOOR C^EATt. D£^!--E. 
EN CHANGE WORDT AflNGEROEPEN. DEZE ROUTINE CCNTRQ- 
LEERT OF EEN GEGEVEN FILENAAM WEL 0." NIET AANWEZIB 
IS IN DE DIRECTORY. IS DAT HET GEVAL, DAN KEER' D£ 
ROUTINE MET DE CARRY VlAG GEZE" TERUfe. ZG NIET DAN 
IS DE CARRY NUL. IS EEM FILENAAM GEVOnDEN' DAN 
STflflT DE X INDEX ERGENS IN DEZE FIL.ENAA!r GERIC.HT. 
DE Y INDEX STflAT GERICHT OP HET EERSTE KA^AKTE^ 
NA DE '=' BEGRENZER IN DE DCS INPUT BUFFER. 
EN-PASSANT DOET DEZE ROUTINE OOK N06 EEN CONTROLS 
OP SYNTAX FOUTEN. 



dOMPAR LDX #$00 :INDEX=*00 

LDY #$02 'INPUTBUFl^R POINTER » 

STY $2CE5 

JSR READBUFFER :lEES KARAKTER 

CMP #$20 ;IS HET ^£N SPATIE ? 

BNE ERROUT :Z0 NEE, SYNTAX ERROR 
INNAME JSR READBUFFER :LEES KARAKTER 

cm #fOD jf^TURN t 



27 



^Ei 5 □ lEH 



C9 

DO 



16 



E37E- FO 04 
E380 
E3a2 
£384 
£387 
£389 
E38B 
E3aE 
E38F 



E3CE 
E3D0 
E3D3 
E3D& 
E3Dfl 
E3Dfl 
E3DC 
E3DE 
E3E1 
E3E3 
£3E5 
E3E6 
E3Ea 



BD 79 2E 
C9 20 
DO 05 
20 CE E3 
38 
&0 



£390- 
£393- 
£395- 
£398- 

£39fl- 
E39D- 
E39F- 
E3fll- 
E3fl3- 

£306- 
£3fl9- 
E3flB- 
ESfiE- 

E3B0- 
E3B1- 
E3B2- 
E3B4~ 
E3B6- 
£3Ba- 
£3BB~ 
E3BC- 

E3BD- 
E3BE- 
E3C0- 
E3C1- 

E3C4- 

E3C7- 
E3CS- 
E3C9- 
E3CC- 
E3CD- 



20 BD £3 
ftO 03 
8C E5 2C 
DO DF 



ftC E5 
CO Ofi 
DO 05 
fl9 07 
4C 4B 



E3 



DD 79 2E 
FO 05 
20 BD E3 
DO E3 

E8 
8A 

29 07 
C9 06 

DO CI 
20 CE 
38 
60 

8fl 

29 Ffl 
IS 

69 08 
fifl 

FO 01 
60 
68 
68 

20 CE E3 

18 

60 



- flO 03 
8C E5 2C 
20 E4 2C 
C9 OD 
-0 04 
3D 
F5 

flC E5 2C 
CO OB 
BO 01 
60 

fl9 07 
4 C 4i 2D 



C9 
DO 



E3EB- ft2 00 
E3ED- BD 79 2E 
E3F0- eg 23 
E3F2- DO 01 
E3F4- 60 
E3F5- 8fl 
E3F6- 18 



4250 
4260 
4270 
4280 
4290 
4300 
4310 
4320 
4330 
4340 
4350 
4360 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 
4480 
4490 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4760 
4770 
4780 
4790 
4800 
4810 
4820 
4830 
4840 
4850 
4660 
4870 
4880 
4890 
4900 
4910 
4920 
4930 
4940 
4950 
4960 
4970 



SPACE 



6ki / 

0K2 



LCHECK 
COMPNflME 



MEXT 



XfiDJUST 



XOUT 

X0UT2 

FIND> 
YLOOP 

YOUT 
YERR 



BED SPACE 
CMP #' = 
BNE LCHECK 
LDfl DIRflD, X 
CMP #$20 
BNE OKI 
JSR FIND) 



ZO Jfl, SPRING 

IS HET EEN = ? 

ZO NEE^ SPRING 

KfiRfiKTER UIT DIRECTORY 

IS HET EEN SPOT IE ? 

ZO NEE, INDEX RftNPflSSEN 

ZOEK FILENOAMBESRENZER 



SEC ;FILENAAM GEVONDEN (C=l) 



;?AS X INDEX PAN 
;HESTEL Y INDEX 

INPUTBLFFES 



JSR Xffl&iWr 
LDY #*0S 
STY $2CE5' ' 
BNE INNAME 

LDY $2CE5 
CPY #*0A 
BNE COMPNAME 
LDA #$07 
JMP ERR? 

CMP DIRAD, X 
BEQ NEXT 
JSR XADJUST 
INE 0K2 

I NX ; 3{*1 
TXA 

AND #$07 
CMP #$06 
BNE INNAME 
JSR FIND) 
SEC 
RTS 

TXA 
AND 
CLC 
ADC 
TAX 
BEQ 
RTS 
PLA 
PLA 
JSR 
CLC 
RTS 



;MEER DAN 6 KARAKTERS BEHflD 1 

;Z0 NEE, VERDER 
sSW"ftX ERROR 



;VERSEL UK MET FILENAAM 
;VOLGENDE KARAKTER 
; ANDERS VCLGENDE FILENAAM 
•SPRXNS ftLTIJD 



:MASKEER BITS 3-7 
;6 KARAKTERS GEHAD ? 
IVOLGEND KARAKTE,^ 
;ZOEK FILENAAMBEGRENZER 



;FILENAfM SEVONDEN (C«l) 



#$Fe -X DEELBAAR MAKEN DOOR 8 

;EN OP VOLGENDE FILENAAM RICHTEN 

#$oa 



XOOT 



;SPRIMB ftLS DE HiLl: PASINfl KLAAR IS 



;HAAl TERUSKEERADRES VAN 

;DE STACK 
FIND) :ZOEK FILENAAMBEGRENZER 
; FILENAAM NIET GEVONDEN (C=0) 



LDY #$03 
STY $2CE5 
JSR READBUFFER 
CMP #$0D 
BEQ YOUT 
CMP #' = 
BNE YLOOP 
LDY $2CE5 
CPY #$0B 
BCS YERR 
RTS 

LDA #$07 
JMP ERR? 



;ZOEK 0E FILENAAM MSREMIER 



;LEES KARAKTER 



;MEER DAN 6 KARAKTERS ? 
;Z0 JA, FOUTMELDING . 

; SYNTAX ERROR 



GETPLACE ZOEKT EEN VRIJE POSITIE IN DE DIRECTORY 



GETPLACE 
BETA 



GETB 



LDX #$00 ; INDEX = 0 

LDA DIRAD, X ;HAAL EERSTE KARAKTER CP 

CMP #$23 ;IS HET EEN ' #' ? 

BNE GETB :Z0 NEE SPRING 

RTS ;LEGE PLEK BEVOMBEN (Z«1J 

TXA ;X INDEX +8 

CLC 



28 



2^ E 5 O 5 







OS 




A9A0 


E3Fg- 








4990 


E3Fft- 


DO 


Fl 




5000 


E3FC- 










ESFE- 








□Uuv 

5070 
5080 


E3FF- 


eg 


00 




5090 


E401- 


FO 


09 




5100 


F/iDT— 


L ^ 






D 1 1 u 




FA 


05 








rq 


40 








RA 


01 




"il Art 


C/. fiB— 
CM-vD 


cn 






"=11 =;ri 




oo 








FAnn— 








U 1 1 v 

5180 
5200 






10 E4 




^4.1 1 - 


(■)Q 










OQ 








u. H- J. i_> 








5250 




OQ 
vn 








F4.1 "5- 


D w 


Fn 










1 u 


PA 


5290 


E41fi- 


05 


C.V 




E41C- 


GO 






5300 
5310 


•E4ilJ- 


20 


FA 




5320 


E420- 


C9 


ijU 




5330 


E422- 


90 


OS 




5340 


E4?4- 


C9 

w *7 


3A 




5360 


£426- 


BO 


04 






%jO 










F'^ 


30 














SA nri 




H3 


07 






PA 




4B 


2A 


5430 

SA /iTl 

■?A ^ri 
























40 


E4 


■^AO(^ 


PA T/i _ 


TA 


07 










43 


23 






PA 






□ U 1 u 




AP 


31 


E4 






AP 


61 


27 




FAAn— 


nn 


OA 


46 




ca/it;- 


*4 3 


4C 


45 




CAAt- 




41 


4C 




FAAQ- 




45 


41 




E44C- 


44 


59 


20 




E44F- 


45 


58 


49 




E452- 


53 


54 


53 




E455- 


00 








E456- 


OD 


OA 


42 


5560 


E459- 


41 


44 


20 




E45C- 


54 


52 


41 




E45F- 


43 


4B 


20 




E462- 


4E 


55 


40 




E465- 


42 


45 


52 




£468- 


00 









ADC ««08 

TAX 

BNE BETA 
LDA #$FF 
RTS 



;SPR!NG ALS X<>$00 
;GEEN LEGE PLAATS (Z=0) 



DEZE ROUTINE CONTRDLEERT OF EEN TRACKNUMMER <> 0, 
<> 12 EM^ m II, ^ 



tCHECK CMP #$00 : <> 0 ? 

BEQ TCHOUT 

CMP #*12 ; <> 12 ? 

BEQ TCHOUT 
CMP #$40 ; < 40 ? 

BCS TCHOUT 

RTS ;ALLE D??IE JA : C=0 
TCHi»IT SEC ;C-1 
RTS 

GETBYTE LEEST TWEE ASCII KARAKTE=?S UIT D£ INPUTBUFrER 
EN CONVIRTfERT HET TOT EEN BCD NUMMER 



^ETBYTE 



JSR ASCHiX. 

ASL A 
ASL A 
ASL A 
ASL fl 

STA *TEMP1 
JSR ASCHEX 
ORA »TEMP1 



:ASCII -> HEX 
;HOGE NIBBLE 



•ASCII -> HEX 



ASD^X 



JSR READBUFs^ER 
CMP #$30 ; 
BCC ASCERR? 
CMP #$3A ; 
BCS ASCERR? 
SEC 

SBC #$30 ' 

RTS 



< 30 ? 
> 3A ? 



-EES KARAKTEI: 



(^ISCERR? 



LDA #*07 
JMP ERR? 



; SYNTAX ERROR 



PRINT EEN FOUTMELDING BESPECIFICEERD DOOR D£ Y iNDtX 



t^RERROR 



ENDPRINl 
^EXIST 



LDA FEXIST,Y 
BEQ ENDPRINT 
JiR PRCHA 
I NY 

JMP PRERROR 

JMP UNLOAD :KOP OMHOOG + EXI"^ 

.BY $0D *0A 'FILE ALREADY EXISTS' $00 



,BY »0D ♦QA 'BAD TRACK NUMBES' tOO 



5570 ; 



29 



e 5 a s 



K^lsllsieiR 



E469 
E46C 
E46D 
E46F' 
E470 
E472 
E474 
£477 
£478 
£479 
E47B 
E47D 
E47F 
£482 
£483' 
E48S' 
£488' 
E48B 
£48E 



20 91 E4 
8A 

29 F8 

flO 00 
09 23 
9D 79 2E 
£8 

ca 

CO 06 
DO F7 
fig 00 
9D 79 2E 
£8 

9D 79 2E 
fig 01 
8D 5F 26 
20 5F E3 
- 4C 61 27 



£491 
£494 
E497 
E49fi 
E4gD 
E4fl0 
E4fl3 
E4fl5 
E4flS 
E4flfl 
E4flC 
E4flF 
E4B2 
E4B5 
E4B7 
E4Bfl 
E4BD 
E4C0 
E4C2 
E4C5 
E4C8 
E4CB 
E4CD 
E4CF 



20 73 2D 
OD Oft 41 
52 45 20 
- 59 4F 55 



20 
52 



55 
3F 



20 00 
20 40 23 
C9 59 
DO 27 
20 6fl 2D 
20 8B £2 
20 4fl £3 
fig 01 
80 5E 26 
20 53 £3 
20 6B £3 
BO 10 
EE 5E 26 
20 53 E3 
20 6B £3 
BO 05 
fl9 OC 
4C 4B 2fi 



E4D2- 60 



E4D3- 
E4m' 
E4IS- 



68 
60 



E4D6- 20 91 
E4D9- 8fl 
E4D0- 29 F8 
E4DC- flfl 



£4 



E4W>- 
E4E0- 



20 £4 2C 
eg OD 



E4E2- FO OD 
E4E4- 9D 7g 2E 
E4E7- E8 
E4E8- 

E4Eg- 2g 07 
E4EB- eg 07 
£40)- BO IE 



5580 
5590 
5600 
5610 
5520 
5630 
5640 
5650 
5660 
5670 
5680 

5&go 

S700 
5710 
5720 
5730 
5740 
5750 
5760 
5770 
5780 
5790 
5800 
5810 
5820 
5830 
5640 



5850 
5860 
5870 
5880 
5890 
5900 
5910 
5920 
5930 
5940 
5950 
5960 
5970 
5980 
5990 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 



;DEL£TE VERWIJDERT E£N FILENflftM UIT D£ DIRECTORY 



6elete 



OELLOOP 



^INDFILE 



^INOUT 

■ 

m/mrr 



JSR FINDFILE ;ZO£K 
TXft ;MflftK X DEELBfiflR DDR 8 
OND #*F8 ;X WIJST DflN OP HIT BERSTE KftSflKTEH 

TAX ;VfiN DE I^ILENftflM 

;Y IS DE LUSTELLER 
;'#' KfiRPIKTER 
;ZET HET IN DE II RECTORY 



LDY #i00 
LDfl #*23 
STfl DIRflD,X 
I NX 
INY 

CPy #*06 
BNE DELLOOP 
LDA «$00 
STfl DIRflD,X 
I NX 

STfl DIRflD, X 
LDfl #$01 
STfl PflGENUMB 
JSR DIRDUMP 
JMP tM.OflO 



;MflX. 6 KflRflKTERS 
;STflRT TRflCK = 0 



"LflflTSTE TRflCK = 0 

•flflNTflL Te' SCHRIJVEN PflGINfl' S 

jSCHRIJF DIRECTORY WES 
:KOP OMHOOe. * EXIT 



JSR STRQUT ;VOOR ftLLE Z£KE;1HEID 
.BY $0D *0A 'ARE YOU SURE? ' fOO 



JSR RECCHfl 
CMP #'Y 
BNE NO/OUT 
JSR CRLF 
JSR BflSTEST 
JSR TR12 
LDfl #$01 
STfl SECTNUMB 
JSR READ 
JSR COMPflR 
BCS FINOUT 
IMC SECTNUMB 
JSR READ 
JSR COMPflR 
BCS FINOUT 
LDfl #$0C 
JMP ERR? 



;IS HET Y ? 
;Z0 NEE, EXIT 

;BflSIC TEST 

;Z£T DE KQP OP TRACK 12 
; SECTOR 1 

;LEES SECTOR 
;FILENflAM AflNWEZIG ? 
;Z0 JA, SPRING 

: SECTOR 2 
jLEES SECTOR 



;'FILE DOESN'T EXIST' ERROR 



RTS 

PLfl 
PLfl 



;HAfli.< mnm adres van m stacm 



RTS ;EN SPRINi UIT BOS COMWil^ 



CHANGE VERflNDERT EEN FILENAflM IIM EEN ANDERE 

dHANSE JSR FINDFILE ;ZOEK FILENAfttI 

TXA jMflflK X DEELBflflR DOOR 8 
flND #iF8 
TflX 

CHA JSR REflDBUFFER jKflRflKTER MIMM WliSmm^ 

CMP #$0D ;EINDE NflflM ? 

BEQ CHB ;Z0 Jfl SPRING 

;Z£T KflRAKTER IN DE DIRECTORY 



STfl DIRflD, X 
I NX 
TXfl 

AND #$07 
CMP #$07 
BCS CHERR? 



;MEER DflN 6 GEDAAN 1 
;Z0 JA, FOUTMELDINB 



30 



e 5 a 5 











bzbO 

6270 : 


BCC 




OH 






0|1A PUD 


T VA 
1 AH 


F/iP"?— 


oq 
^ 3* 








hNu 


CM-r fc* 


QA 
HO 








1 HY 




H -7 






oo 1 u 


J no 


E4F7- 


CO 


06 




6320 CHC 


CPY 






07 




6330 


BEQ 


PA CO™ 










CTA 
b 1 H 


E4FE- 


Ea 






6350 


IIMX 


E4FF- 


ca 






6360 


I NY 


E500- 


DO 


F5 




6370 
6330 ■ 


BNE 


E502- 


fig 


01 




63g0 CHD 


LDPI 


E504- 


8D 


5F 


26 


6400 


Sift 


E507- 


20 


5F 


E3 


6410 


JSR 


ESOfl- 


4d 


61 


27 


6420 
6430 : 


JMP 


ESOD- 


fig 


07 




6440 CHERR? 


LOft 


esoF- 


4C 


4B 


2ft 


6450 
6460 : 
6470 ■ 
6480 


JMP 
.LI 



CHA 



:SPRINS ftLTIJD 



:ZOEK HET ftftNTOL KflRRKTERS 
#i07 "VftN DE NIEUWE FILEN<Wi« 

;EN ZET DAT IN DE Y INDEX 
#*20 ;£EN SPPTIE 

#*06 ;flLLE 6 KflRftWfil itW f 

CHD ;?D JO EIMJi 

DiRftB, t «s0«tlf If* m wtmmm' mrrm 



CMC 



; SPRING ftLTIJD 

jfiftNTftL T£ SCHRIJVEM P«§J|»l'i 



#*01 

PflBENUMB 
DIRDUMP ;SCHaiJF SECTOR WHS 
UNLOAD ;KOf iWlQOG + EXIT 



#♦07 

ERR? 



sSYNfTAX IRROR 



E512- 


flfl 






E513~ 


Cfl 






E514- 


BC 


26 


E5 


E517- 


Bg 




E5 


E51fl- 


FO 


07 




E51C- 


20 


43 


23 


E51F- 


ca 






E520- 


4C 


17 


E5 


E523- 


4C 


61 


27 


E526- 


00 






E527- 


OD 






E528- 


Ifi 






E529- 








E52fl- 


46 






E52B- 


51 






E52C- 


61 






E52D- 


EE 






E52E~ 


7F 






E52F- 


97 






E530- 


BO 






E531- 


C2 






£532- 


D5 







F04 12D4 4292-5566 

6460 
6490 
6500 
6510 
6520 
6530 
6540 
6550 
6560 
6570 
6580 
6590 
6600 
6610 
6620 
6630 
6640 
6650 
6660 
6670 
&6B0 
6690 
6700 
5710 
6720 
6730 
6740 
6750 
6760 
6770 
6760 
6790 
6800 
6810 : 
6820 TflBLE2 
6830 ERRl 



.LI KLEIN4.M0S 



IN DE ORIGINELE VERSIE VftN 0S-65D WORDEN FQUTMELDINS£\ 
VIA NOGftL CRYPTISCHE MEDEDELINGEN flLS 'ERR »C' E\Z. 
GEGEVEN. NIET fiL TE HftNDIG DUS. DEZE ROUTINES HEBBEM ' 
TOT DQEL DE FaUTMELDJNSEN VftN HET DOS WAT GEBRUI:-<S- • 
VRIENDELIJKER TE MflKglS, |N PLftftTS VftN E£N MELDINt 



DISKERROR 



PRINTE 



EPRINT 



tftBLEl 



TAX ;fl BEVAT 
DEX jGEBRUIK 
LDY TABLE 1,X 
LDA TftBLE2,Y 
BEQ EPRINT 
JSR P!CHft 
I NY 

JMP PRINTE 
JMP UNLOAD 



HET FOUTNUWMER 
BIT DM it Y INDEX 



IN 



;DE ASCII TflBEL T£ \}im§n 
;?RINT DE FDJTWELDINS^ ' ' 



;KOP 0«HDCB ♦ EX I" 



E533- 
E536- 
E539- 
E53C- 
E53F- 
E540- 
£543- 
£546- 
E549- 
E54C- 
E54D- 
ES^' 



49 54 59 
20 45 52 
~ 4F 52 



•BY ERRl-ERRl 
.BY ERR2-ERR1 
.BY ERR3-ERR1 
.BY ERR4-E3R1 
.BY ERR5-ERR1 

.BY ERR8-ERR1 
.BY ERR9-ERR1 
.BY ERRft-ERRl 
.BY ERRB-ESRl 
.BY ERRC-ERRl 
.BY ERRD-ERRl 



.BY 'PARITY ERROR' $00 



52 
00 
52 
45 
20 



44 



45 
41 

45 52 
52 4F 52 
00 

43 41 4E 
27 54 20 



6840 ERR2 



&650 ERR3 



mm' to© 



.BY 'CAN' ♦27 'T WRITE TRACK 0' $00 



31 



KEINMEIR 



Ed53- 


57 


52 


A d 

43 




A 


or\ 
20 




04 


CO 


A i 
41 


C.wJDL~ 




/i Q 




E55r- 


50 


00 






A A 


A Q 


Do 




aB 


20 


A Q 

4S 


E5&7- 




20 


57 


E56fi- 


5^ 


49 


54 


E56D~ 


45 


20 


50 


E570- 


52 


4F 


54 


E573- 


45 


43 


54 


E576- 


45 


44 


00 


E579- 


53 


45 


45 


E57C- 


4B 


20 


45 


E57F- 


5^ 


52 


A ^ 

4F 


E582- 




00 




E58a- 


4a 


cr-~i 


49 


E587-- 


56 


45 


20 


E58H- 


4t. 


ar 


cr A 
□ 4 


C.58D- 


20 


52 


45 


E590- 


4 1 




□ 3 


t.533- 














4t 


t5S7- 




4 1 


C Q 




20 


4D 


52 


£590- 


52 














EDfll- 


A O 

42 


A i 

4 I 


44 


Ccr A/. 

Edhu- 


2U 


cr A 


32 




A 1 


A 

4uj 


40 


tvjHH— 


20 


A C 

4c. 




An 
C. jhU 




A O 

4ji 


A cr 










E5B2- 


43 


41 


4r. 






uJ4 


2LJ 


E5B8— 


A ^! 

46 


4 3 


A — 
4c 




A /i 

4a. 




C" A 
J 4 


£5BE- 




A ^ 

4 1 


A 

4vj 


E5C1- 


4B 


2U 


A O 

4d 


E5Ca- 


45 


A ^ 

41 


A /. 

44 


E5C7- 


45 


52 


00 


E5Cfl- 


43 


41 


4E 


E5CD- 


27 


54 


20 


£5D0- 


46 


49 


4E 


E5D3— 


44 


20 


53 


E5D6- 


45 


43 


54 


E5D9- 


4F 


52 


20 


E5DC- 


48 


45 


41 


E5DF- 


44 


45 


52 


E5E2- 


00 






E5E3- 


42 


41 


44 


E5E6- 


20 


53 


45 


E5E9- 


43 


54 


4F 


E5EC— 


52 


20 


A 

4C 


E5EF- 


45 


4£ 


47 


E5F2- 


54 


48 


00 


E5F5- 
c5F8- 


46 


49 


4C 


45 


'"I A 

20 


A A 

44 


E5FB~ 


4F 


45 


5>i 


E5FE- 


4E 


27 


54 


E601 - 




A 

43 


era 
Do 




*+ -7 






£607- 


00 






E608- 


52 


2F 


57 


E60B- 


20 


41 


54 


E60E- 


54 


45 


4D 


£611- 


50 


54 


20 


£614- 


50 


41 


53 


£617- 


54 


20 


45 


£61fl- 


4E 


44 


20 


E61D- 


4F 


46 


20 


ES20- 


46 


4f 


4C 



6860 ERR4 



,BY 'DISK IS WRITE PROTECTED' $00 



6870 ERRS 



6880 ERR6 



6890 ERR7 



6900 ERRS 



6f 10 mm 



,BY 'SEEK ERROR' *00 



BY 'DRIVE NOT READY' *00 



BY 'SYNTftX ERROR' $00 



. 1* * SflD TRACK ^t^l^i* 



t¥ *GftN* ♦27 'T FINO Ti^K MiPiBil* t« 



6920 Etta 



.BY 'CON' %27 *T FI!\© ttetSP: W 



6930 ERRB 



6940 ERRC 



.BY 'BftD SECTOR LENSTH' $00 



.BY 'FILE DOESN' *Z7 'T EXIST' $00 



6950 ERRD 



, BY • R/W ATTE!^T PAST END OF FILE' *00 



32 



KEiMMEIR 



E623- 45 00 



EB25- 


20 


&A 


2D 


E628- 


flD 


7B S fi 


E62B- 


38 






E62C- 


E3 


73 




EG2E- 


AD 


7C 




E631- 


E9 


3ff 




E633- 


40 






E&34- 


4fl 






E&35- 


4A 






E636- 


18 






E637~ 


&g 


01 




£539- 


20 


32 


2D 


E&3C- 


20 


73 


2D 


E&3F- 


20 


54 


52 


E&42- 
E645- 


41 


43 


4B 


28 


53 


29 


E64i- 


00 






£649* 


m 







E64fl- 


fl3 


03 




E64C- 


8D 


70 


31 


E64F- 


pg 


20 




E65i- 




ccr 




E654- 


P9 


04 




E656- 


BD 


70 




E&53- 


ag 


97 




E&5B- 


flO 


1£ 




£65D- 


20 


70 


20 


E660- 


4C 


00 


02 


E663- 


03 


97 




£665- 


00 


16 




£667- 


20 


7D 


20 


E66fl- 


4C 


04 


02 


E6eD- 


09 


51 




E66F- 


00 


20 




E671- 


20 


7D 


20 


E674- 


4C 


51 


20 


£677- 


03 


24 




£679- 


20 


EE 


20 


E67C- 


4C 


00 


02 



6960 
6970 
£980 
6990 

7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 



NUMBER SEEFT HET OONTOL TROCKS DOT EEN SOURCE- 
FILE LONe IS. 



NUMBER 



7160 

7170 
7180 
7190 
720n 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7430 
7500 
7510 
7520 
7530 
7540 
7550 
7560 
7570 
7580 
7590 
7600 
7610 
7620 
7630 
7646 



JSR 
LDO 
SEC 
SBC 
LDO 
SBC 
LSR 
LSR 
LSR 
CLC 
ODC 
JSR 
JSR 
.BY 



RTS 



CRLF 
$307B 

#*79 

*307C 

#$30 

0 

0 

0 



; RETURN/LINE FEED 

;END ODRES L VON SOURCE FILE 

■- BESIN ODRES L 

IenD ODRES H*"vflN SOURCE FILE 

;- BEGIiM ODRES H 

■DEEL DOOR 8 



#$01 
PRBYTE 
ST ROUT 

♦20 'TROCK(S)' $00 



;TEL ER EEN TRACK BIJ CP 
; PRINT OftMTOL TriftCKS 



DE VIER NU VOLSENDE COMMANDO'S ZIJN ML NC3 NIE"!' VON 
BELONG. ZE ZIJN BEDCELD VCCR HET LfiDE^J VfiM -IS-FOR'- 
£N DE MOCRO OSSEMBLER VON MOSER. DIE IK I\^IDD£;.S 
AttN MET 0S-65D SYSTEEM HEB OONSEPftST. 



f^ORTH 



LDO 
STO 
LDO 
JSR 
LDO 
STO 
LDO 
LDY 
JSR 
JMP 



#$03 

$3170 

#$20 

$2flEE 

#$04 

$3170 

#$37 

#$16 

$207D 

♦0200 



WFORTH 



LDO #$97 
LDY #$16 
JSR $2070 
JWP *0204 



OONTOL TE LADEN TRACKS - 1 
IN DOS LOAD RCUTIME 
LADEN Vfi.M TRACK 20 
LEES 4 TRACKS IN 
-!ERSTE_ L.AADROJTI:ME 

$1637 IS HE" RETUIM ADRE3 
I\ FORTH NO EEN DOS -OUT 
ODRES IN FSUTROUTI\£ Z£TTE,?s 

KouDE srnm wbrth 



;*1697 IS TERUGKEf ROSSI 
; IN FORTH NA E£M ©OS ft 

;WORME START FQfttH 



ENTRY NO MON WORD IN FORTH 



MOETED 



LDA #$51 
LDY #$20 
JSR $207D 
JMP KERNEL 



LDO #$24 
JSR ♦20EE 
J¥P »0200 



;TERU6KEERADR£S ^A HQS FQyT 
:'AORDT $2051 

;EN SPRING NflOR KERNEL 

; ASSEMBLER LADEN VAN TRACK 24 
; KOUDE START 



*«* BOOTSTRAP VOOR 0S-65D V3.4 *»« 



BREAK EN NMl VECTOREN 



§RKL .DE $Ffi7C 

BRKH .DE ♦F07D 

Ni4SL .M fFATA 



33 



2200- 


09 


01 




2202- 


8D 


5E 


26 


2205- 


20 


BC 


26 


2208- 


fl9 


2fi 




220fl- 


85 


FF 




220C- 


20 


54 


27 


220F- 


86 


FE 




2211- 


20 


67 


29 


2214- 




5E 


26 


2217- 


09 


06 




2219- 


20 


BC 


26 


22 IC- 


20 


67 


29 


221F- 


EE 


5E 


25 


2222- 


Pi3 


00 




2224- 


85 


FE 




2226- 


85 


FF 




2228- 


20 


67 


29 


222B- 


P9 


01 




222D- 


8D 


5E 


26 


2230- 


09 


14 




2232- 


20 


BC 


26 


2235- 


09 


00 




2237- 


85 


FE 




2239- 


09 


EO 




223B- 


85 


FF 




223D- 


20 


67 


29 


2240- 


09 


13 




2242- 


20 


BC 


26 


2245- 


09 


32 




2247- 


85 


f- 




2249- 


09 


74 




224B- 


85 


FE 




224D- 


20 


67 


29 


2250- 


20 


61 


27 


2253- 


00 


31 




2255- 


8C 


7B 


26 


2258- 


00 


BF 




225fl- 


20 


9£ 


22 


225D- 


FO 


03 




225F- 


88 






2260- 


DO 


F8 




2262- 


8C 


00 


23 


2265- 


02 


01 




2267- 


31 


c& 


2fl 



2260- 


09 


00 




226C- 


8D 


F7 


EF 


226F- 


6D 


D2 


EF 


2272- 


20 


35 


F4 


2275- 


20 


30 


F3 


227S- 


20 


73 


2D 



7650 
7660 
7670 
7680 
7690 
7700 
7710 
7720 
7730 
7740 
7750 
7760 
7770 
7780 
7790 
7800 
7810 
7820 
7830 
7840 
7850 
7860 
7870 
7880 
7890 
7900 
7910 
7920 
7930 
7940 
7950 
7960 
7970 
7980 
7990 
8000 
8010 
8020 
8030 
8040 
8050 
8060 
8070 
8080 
8090 
8100 
8110 
8120 
8130 
8140 
8150 
8160 
8170 
8180 
8190 
8200 
8210 
8220 
8230 
8240 
8250 
8260 
8270 
8280 
8290 
8300 
8310 
8320 
8330 
8340 
8350 
83G0 
8370 



NMIH 



.DE »Ffl7B 



DE BOOTSTROP IN DE 2708 EP.ROM OP DE BOSISKOORT VON 
DE JUNIOR LOODT TRACK 0 VONOF ODRES $2200 IM HET 
GEHEUGEN. DflftRNfl SPRIN6EN WE NftOR ODRES $2200 WflflR 
WE DE REST Vm ©E BOOTSTRflP VIMDEN. 



*♦* BOOTSTROP BEGINT HIER *** 



BO $2200 



loOTUP 



l»EMLQOP 



RflMSTORE 



LDO 
STO 
JSR 
LDO 
STO 
JSR 
STX 
JSR 
INC 
LDO 
JSR 
JSR 
INC 
LDO 
STO 
STO 
JSR 
LDO 
STO 
LDO 
JSR 
LDO 
STO 
LDO 
STO 
JSR 
LDO 
JSR 
LDO 
STO 
LDO 
STO 
JSR 
JSR 
LDY 
STY 
LDY 
JSR 
BEQ 
DEY 
BNE 
STY 
LDX 
STX 



:LEZEN VON SECTOR 1 



;STflP NflflR TROCK 1 

•DE LOflDVEETQR M»T *2fl00 



: X=*00 



;KOP OP DE SaHIJF 

:LEES SECTOR IN 
: SECTOR 2 



;LEES PhGINO 
: SECTOR 1 



$0000 
0 IN 



#$01 

SECTMUMB 
SETTK 
#$2fi 
*VECH 
LOODHEfiD 
*VECL 

REODSECTOR 
SECTNUMB 
#$06 

SETTK rSTflP NfiOR TRACK 6 
REODSECTOR ;LEE3 SECTOR VflNftF $3200 

SEC-'NUMB ; SECTOR 3 

#$00 

*VECL ;D£ LOOD'VECTOR WORD^ 
♦VECH 
REODSECTOR 
#$01 

SECTNUMB 
#$14 
SETTK 
#$00 
*VECL 
#$E0 
#VECH 

REODSECTOR 
#$13 
SETTK 
#$32 
*VECH 
#$74 
#VECL 

REODSECTOR ;LEES SECTOR I\ 

UNLOAD ;KDP OMHOOG 

#$31 ;DEZE INSTRUCTIE POST 

$267B ;DE STEPRfiTE fm 

#$BF 

ROMTST :ZOEK HOOGSTE POGINfl IN RAM 
ROMSTORE ;SPRING flLS HIJ GEVOMDEN IS 

MEMLOOP 
ROMLOC 

#$o: 

DISTR !DEVICE#1 i£SELECTil« 



;STflP NflOR TRACK 14 

;DE LQRDVECfm mmi »S»© 



;L£ES SECTOR IN 



;STOP NOAR TRACK 13 

;DE LOODVECTOR WORDT $3274 



DE NU VOLGENDE INSTRUCTIES ZIJN BEDOELD VOOR DE 
INITIOLISERING VAN DE 6845 CRT CONTROLLER OP 
DE VDU KAORT VON ELEKTUUR. INDIEN U MET EEN 
ELEKTERMINAL OF EEN SOORTQELIJK RftNDAPPflRfiftT 
WERKT MOET U DE VOLGENBg 14 BYTES VBRVaNSEN 
DOOR NOP INSTRUCTIES. 

LDA #$00 
STO $EFF7 
STO $EFD2 
JSR $F435 
JSR $F330 



JSR STRfiUt ;BEEFT DE SYSTEEMlDENTIFICATtE 



D HE! 



227B- 


4F 


53 2D 


8380 




»0S-65D V3 


227E- 


36 


35 44 










2281- 


20 


56 33 










2284- 


2E 


34 00 










2287- 


09 


2E 


8390 


LDO 


«$2E 




2289- 


8D 


7C Ffi 


8400 


STO 


BRKL 




228C- 


09 


FF 


6410 


LDO 


»$FF 




228E- 


8D 


7D FO 


8420 


STO 


BRKH 




2291- 


09 


00 


8430 


LDO 


#*00 




2293- 


81} 




8440 


STO 


NMIL 




22%- 


09 


FC 


8450 


LDO 


#*FC 




2298- 


8D 


7B FO 


8460 


STO 


NMIH 




22^- 


4C 


51 20 


8470 
8480 ; 
8490 : 


JMP 


KERNEL 




22gE- 


84 


FF 


8500 ftOMTST 


STY 


#VECH 


■ 

•> 


22fl0- 


Bl 


FE 


8510 


LDO 


(VECL),Y 




22fl2- 


29 


3F 


8520 


OND 


#*3F 




22fl4- 


49 


3F 


8530 


EOR 


#*3F 




22fl6- 


91 


FE 


8540 


STA 


(VECL) , y 




22fl8- 


85 


FD 


8550 


STO **FD 




22flfi- 


Bl 


FE 


8560 


LDO 


(VECL),Y 




22flC- 


29 


3F 


8570 


OND 


#*3F 




22ftE- 


C5 


FD 


8580 


CMP 


»*FD 




22B0- 


60 




8590 


RTS 










8600 ; 
8610 ; 
8620 









;ZET DE BREAK VECTOR 



;ZET DE NMI VECTOR 



;SEHEUGENPLflflTS 



BMMINBBI ICT HE PC-2 COMVIER VRN mnOI ELmiDOei 



Door i Siaon Voortaan te Owldoro 

Ik heb een PC-2. Deze heeft 4K fWHirt-beard. Daamaast fit 
■onitor en een lOK Basic interoreter/coMiler. die ook m/t 
labels kan Merken. Ran de PC-2 klecft een oroot nadaili tr 
bunnen «aar 40 karakters oo een repel. Bij diverse amlert 
fcOMMiten (bijv. flcom Ptoa) kun ,iie aan het einde van een 
ngtl (ao het schere). oeMoon dobrtikken oo de voloende 
rcgel. Zo niet bij de PC-2! Aan het einde van het schem 
Nordt mbI od de voloende reoel beoonnen, aaar de interore- 
ter interoreteert dit qetnon als een reoel zonder reoel- 
miaaer, en ^eeft dus vrolijk: Errorisyntai! 
Dit howit in, dat de teksten korter eoeten zi.in dan zo'n 
2i I 22 Innktirt. Ji tait wl eat eeer oo een reoel krij- 
fm, als jc iR sluts van PRINT sen vraaoteken t?) aan- 
idait. Bij USTtn ^Nrt cr gsNsan PRINT, aaar de tekst 
ielpift dear near dupipiii rapit lit haift acMm^lit 
mSiI dat bij verM^iiwi iiTrml het ttablM is 
de vtlfsnde reoel weq is, aanoezien alleen de 'cursor re- 

Bl* mir het oeheuoen oekooieerd is! 
wens Merken de instruKties GET en INKEY niet. 'mbmrs da 
iskhode van toetsaftasting van de PC-2*, MSiitl fiviiit 
van ds GET-instruktie er eel aan zou koaen. 
•hi aan inrtraktie die er Mel oo zit: RENUN. In de doko- 
aentatie van de PC-2 staat dat de RENUN er niet inzit. 
Twm ik echter de oereserveerde Noorden nakeek. bleek tr 
SMI RENUN taasen te zitten. En ... ja, hoer! RENUN hemua- 
aert mrtjas de regelnaaaers, aaar dan ook alleen de reoel- 
naaacrs* SDreng-oodrachten (biivt GOTO 100) iwrden niet 
hsmoaaerd! Daar zijn de labels vear. 
Mi Mslagaediua oebraik ik een neraale kassetterekorder. 
Sii '^Sm' fpsat priaaJ 

ttl MiMlar Mlffisil ik tm wrii (tail^ zm/m TV. aet de 



r 
I 
I 



I 
I 
I 
I 
I 
I 
I 
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COMMODORE BftSIC 4.0 (For CBM 40XX and CBM 80XX). 

Tokenized Microsoft Basic Keywords and addresses N. de Vries 

ftnaloQous to the oublication for Commodore-64 bv Pi. Hueliiif^ 
DE £502 KENNER. December 1^83. Daoes 5-8. 



I COMMANDS *' 

I 1 

I KEYWORDS CORRESPONDING TO B0B2 ftND (#)BlfiF I 

I . ADDRESSES CORRESPONDING TO BOOO I 

1 THE ADDRESSES OF ROUTINES FOR COMMANDS ARE THE ADDRESSES I 

1 MiNUi 1. BECAUSE THE mm'mmh$m invoked THUOUSH RTS. I 

1 ^ ^ I 

KEYWORD TOKEN ADDR-1 



END 


BO 


B7C7 


CONT 


9A 


B7ED 


FOR 


Bi 


BGDD 


LIST 


9B 


B&2F 


NEXT 


S2 


BDia 


CLR 


9C 


B5ED 


DATA 


83 


BB82 


CMD 




BA8D 


INPUTt 


84 


BBA3 


SYS 


m 


FFDD 


INPUT 


85 


BBBD 


OPEN 


9F 


FFBF 


DIM 


86 


C120 


CLOSE 


AO 


FFC2 


READ 


87 


BCOl 


BET 


Al 


BB79 


LET 


88 


B92F 


NEM 


A2 


B5D1 


GOTO 


89 


B82F 


60 


# CB 


B7AB 


RUN 


m 


B807 . 


CONCAT 


* CC 


FF92 


IF 


8B 


B8B2 


DOPEN 


* CD 


FF95 


RESTORE 


8C 


B7B6 


DCLOSE 


* CE 


FF98 


60SUB 


8D 


B812 


RECORD 


» CF 


FFgB 


RETURN 


BE 


B85C 


HEADER 


» DO 


FF9E 


REM 


8F 


BSCS 


COLLECT 


# Dl 


FFAl 


STOP 


90 


B7C5 


BACKUP 


» D2 


FFA4 


ON 


91 


B8D5 


COPY 


* D3 


FFA7 


WAIT 


92 


C962 


APPEND 


♦ D4 


FFAA 


LOAD 


9S 


FFD4 


DSfiVE 


* D5 


FFAD 


SAVE 


94 


FFD7 


DLOAD 


* D6 


FFBO 


VERIFY 


95 


FFDA 


CATALOG 


* D7 


FFB3 


DBF 


'96' 


C4DB 


RENAME 


* DB 


FFB6 


POKE 


97 


C959 


SCRATCH 


* Df 


FFB9 


PRINT* 


98 


BA87 




f Efl' 


■-■■■'WIS 


PRINT 


99 


BAA7 









MISCELLANEOUS KEYWORDS 

KEYWqpas CORRESPOND JNB TO B13D 



KEYWORD 



TOKEN 



TABI 
TO 
FN 
SPC< 



A3 
A4 

PIS 

m 



THEN 
NOT 



A7 
A8 
A9 
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COMMODORE BfiSIC 4.0 (For CBM 40XX and CBM BOXX). 
Tokenized Microsoft Basic kevwords and addresses 



i DYADIC OPEfiiTORS I 

I ' I 

I KEYWORDS C0RRESP0NDIN6 TO BiS4 t 

I I 

I PRIORITIES AND AI^S^ (Mimmmm TO B094 I 

I I 

I THE ADDRESSES OF ROUTINES FOR DYADIC OPERATORS ARE THE i 

I ADDRESS MINUS 1. BECAUSE THE ROUTINE A^ INVOKED I 

I THR0U6H A RTS INSTRUCTION. I 

I - ■ • ■ - I 



KEYWORD TOKEN ODDR-1 PRTY 







C99F 


79 


addition 




AB 


0988 


79 


subtraction 


* 


AC 


CBSO 


7B 


ffiultiDlication 


/ 


AD 


CC47 


7B 


division 




AE 


D112 


7F 


exDonent at ion 


AND 


AF 


coaa 


50 


loaical AND 


OR 


BO 


C085 


4& 


loaical OR 


monadic "-" 


AB 


DlAft 


7D 


neaation 


Kkonadic NOT 


A8 


BECB 


5fl 


logical NOT 


> 


Bl 


COBS 


64 




* 


B2 


COBS 


M 




( 


B3 


COBS 


64 


momtukHuon 



FUNCTIONS 

FUNCTIONS CORRESPONDIfti Tl 

fmm^m cdrrespondins td ^§6 



KEYWORD 


TOKEN 


ADDR 










B4 


CD6F 


TAN 


CO 


D2D2 


m 


B5 


CE02 


RTN 


CI 


D32C 


ABS 


B6 


CD8E 


PEEK 


C2 


C943 


USR 


B7 


0000 


LEN 


C3 


C8B2 


F^E 


B6 


C4Aa 


STR* 


C4 


C5d£ 


m38 


B9 


C4C9 


VAL 


C5 


C8E3 




BA 


D108 


flSC 


C6 


C8C1 


mm 


BB 


D229 


CHR$ 


C7 


ca22 


LOS 


BC 


CB20 


LEFT$ 


ca 


C836 




m 


D164 


RI6HT$ 


C9 


C6&2 




m 


D282 


MID* 


CA 


.SHI 


SIN 


BF 


D2B9 










Bit 7 in the 


last 


character ef mmh kmm9^f4 im ntt 





the end of a keyword 
2) Keywords are tokenized bV'ftddina K*ttO* 
□osition in the table. 



to their relative (hex) 
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0010: 
0020 ! 
0030 ! 
0040 : 
0050 1 
0O60 ! 
0070 i 
0080 i 
0O30 i 
0 1 00 : 
0110: 
0120! 
0130: 
0140: 
0150: 
0 1 60 : 
0170: 
0180! 
0190: 
0200 1 
0210: 
0220 : 
0230 : 
0240 : 
0250: 
0250 : 
0270 ! 
0280 : 
0230 : 
0300 : 
0310: 
0320 i 
0330 : 
0340 ; 
0350 1 
0360 : 
0370 : 
0380 
0390 ; 
0400 ! 
0410: 
0420 : 
CiliZO ; 
0440 : 
0450 : 
0460 : 
0470 : 
0480 : 
0490 ; 
0500 : 
0510: 
0520 : 
0530 : 
0540 ; 
0550 : 
0560 : 
0570 : 
0580 : 
0590 : 
OSOO : 
0610: 
0620 : 
0630 : 
0640 : 
0650 : 
06B0 : 
0670 s 



y. 

% 

V. 

% 
% 
% 
% 
% 
% 



T fi P E -■ I / 0 

Datafil»s in Basic, Basic Drogramiifia' s eciitten onder Micro 
fide, subroutine libaries voor'Basic door Meroe, Cross re- 
ference tabels van Basic orograinma' s, auto-execute files 
en meer van dat leuks voor de KIM en de Junior. 

Door: fl. W. den Hartog 
Tienvoet 2 

3261 TP Oud Beyer land 



% 
% 
% 
% 
% 
5t 
% 
% 
% 
% 
% 
% 



Bezitters van KI!»!s of Juniors met een aloemene 8< Basic, zul- 
len bij deze titel waarschi jnl i i :>< denKen'aan met flooayoisc 
uitaeruste comouters d:e craaien onder DDerat:nc Systems als 
Ci-7M. MS-DDS, L'CSD 3-code, of UNIX waar Basics vcor zim met 
coffliYiando' 5 als PRINT USING, DRAW, PPIIMT, CPE^i, C-DSE eriz. en 
iYiet Drijzen waar je 20 KZMs voor kunt kooen. 

De voorwaarae voor zulke mogei i i kheden is echter voornamel i ik 
software en een 6502 comouter is net zo ooec orocrammeerbaar 
als een 68000 of 8066 coffiouter. Verder is een floa^ydisc ai- 
leen maar een hele snelle cassetteinterf ace en vcor f 1239 11*5 

le aJ 
SOO 



I een mat rixorinter waar je een orafisch aeeldscherm van 
bij 800 3ixels mee kunt simuleren. Niiet langep oetreurc 
dus en silken hoe dit ailes is te realiserpn. 



Wat lYioet er cebeuren 

De sleutel die dit alles (Yiogelijk (YiaaKt is het kunnen uit- 
wisselen tussen orog ramiYia' s van de karakters die naar het 
beelcscheriYi woraen gestuurd en van het kevDoard wcrden ce- 
lezBn. Dit is te realiseren door de OL'TP'jt en INPU" routi- 
nes de lYiogel 1 jkheid te aeven Oiti naast de terminal hun karak- 
ters 00'< rYiet de cassetteinterface uit te kunnen wisselen. 
Hoe dit tot ce aenoeiYice mocel i.i kheden kan leideYT vertel Ik 
later, ik volsta even met een voorbeeid. 
Gecevens kunnen in Basic bewaard wortien door ze met 0!.;t- 
Dut naar taoe met PRINT te orinten en later met inout van 
taae weer omnen te halen met IMPUT zoals hieronder: 



Datum=maandao 

10 fl*="Hans " + "en Griet",e" 

20 B=3. 14159* (<361. 27/15:) ••■'•2. 5) 

30 PRINT ft$ 

40 PRIN^ B 

RUN 

Hans en Sriet.ie 
15623.4211 

Datuffl»dinsdag 

10 INPUT Pl$ 
20 INPUT B 
30 PRINT ft$,B 

RUN 

? Hans en Srietje 
? 15623.4211 

Hans en Srietie 15623.4211 



Dataoenereer 3rogram<i»a 



"Outaut naar taoe" 

6s he ug en is leea 
Dat a lees srocramma 



"Inout van taoe" 

Data zit weer in comouter 



Pils dit in de araktijk wil werken moet OUTPUT wel de line- 
feeds negeren, alsmede tie Null karakters ($00) die Basic me#- 
zendt voor teletyoes die voor de carriaae return tiid nodio 
hebben en aeen karakters kunnen bufferen. De aesaveBe karaft- 
ters gaan dienen als keyboard intoetsingen mn'dmr wppden 
lineftlBd en *00 ook nooit aebruikt. 
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Het Drinten van meerdere gegevens in sen PRINT statement is 
mooelijk maar dan moeten wel koiinma's worden t ussenaevoead d$ts 
PRINT A$;",";B om later door INPUT te worden eesliit. Het 
sttlit #cM«r veel minder duidelijk. 

De soeciale taoe routines weten door het ceset zi.in van be- 
oaalde flaas en het ontvangen van beoaalae ,kara.-<ters of de 
inout en/of out out wel of niet met taoe moet ceDe;^rer-i. zen 
Basic orogramma kan dit zelf veraergen. fils dit switche;i met 
de hand moet gebeuren is het asm raden vier controlcoces 
te reserveren (voor wel/niet taoe inout/out 3ut ) . Die dan hex 
switchen verzorgen. 

Ran het einde van dit artiKel ziin twee asseiYiblerorocr^^ja' s 
□ eaeven, OUTTflP en I;\'TflP. die de taoel/C verzorce.i. ^am «S«2e 
in de normale INPUT en OUTPUT routine oebruikt moeten msrcisn 
staat fei#m«-'vermBld. 

Het formaat van de I/O karakters oo d* eitue**© 

De karakters die naar taoe worcen cesc^ireven zullen i.-i bloK- 
ken moeten worden weggeschreven. SlokKen van 1 kara;ter is 
met Bconomisch door "overheac als svncnrQnisatie karakters 
en blokken van enkele kiiosvtes vr»§at te vsel svsteem^AM e?- 
:s oneconoiYiisch bi.i kleine files. rtliT isi «ei}^ aloaf rsette 
van 128 bytes gekozen. ten file is wm «f f««c^f , h»B¥«e 1 - 
neio karaKters. Een file die kleiner- im d«# l!^' mpidt 
toch als een alo< van 12S bvtes in een record weo<S*1ieni'#w«';» 
aancevLild met wat er toevallig in ce buffer stond. Sij '^mi: 
iniezen worden alleen ce s#fiB«ze Hara^ters 0vepaeno«©n. B: i 
files die groter dan 128 ls^««-2ij«i »m sari© van re-' 

cords weggeschreven. 

Elk blo.<"worct afgesloten met etm kAtitv^ter $:C als 12Se> xa- 
rakter. flls het laatste karakter van een file ir- cs blox- 
buffer is gezet en er cus ceen kara-tters voor die f:le rtuser 
komen worct deze laatste buffer af aesl ote.-! met HE in olaats 
van $:C. Normaal wordt de blo-c-buffer oas ca bafje i|»SChreven 
als ce buffer vol is. flis het laatste karakter vsn?' f » file 
echter is ontvanoen dan worct de buffer met ce laat*l» ;<a!'a<- 
ters van de file geiijk oo band cezet. 

De eerste record van een file wordt o:; band gezet ffiet IS««01. 
de daaroavolgence records wcrden steeds mst mmn ID cescipe/er 
dis 1 hogef' Sm tfan die van ce vco rafajiawia fms&fs. 
Het becm van een file is nu te herkennen aa^ iDsf-Ol ©■^ 
het einde is te herkennen aan een 'record die a^fceaf eter. is 
met *lt in olaats van $1C. 

Inout van taae en outout naar taoe ka,n celiiKtiicia ae^e^^re.'': 
oiYidat elk zijn eigen variabelen e?-* vooral buffer --ieeft. 

De out out naar taoe routine OCTTSP 



De outout wordt naar taoe aescTreven vanaf het moment Cm 
msb van de variabele/f lac TfiPOL'T is oeset. CL'TTSP ccn.tf*oie»rt 
het msb en indien die niet oeset is worct het -cara^teT 
naar taoe gestuurd. fils net msb wel oeset is wcjrct oo:« fall §■ va 
TflPDUT, die voor de init ial isat ie zofct. oetest. fils Mi» 
geset is wordt de buf feroointer T^SJD od iOO gmstWf -tm #• If^ 
te:ier oj $01 aezet en omdat de initialisatie'voor het *^#~ 
sciriiven van sen nieuwe file. dan kiaar is wordt ock bit I 
oeset zodat er maar eenmaal wordt oeinit ial iseerd oer file* 
His Dit £ en 7 (msb) zi.in ceset wordt aecont roleerd of het wea 
te zetten karakter $Oa=Linefeed of *0(5=Mull 4sna«t die ftMltifi- 
worden genegeerd. fils het naraHter celiik i S ««¥! tlS «ri rtf t %eS ' 
m de buffer gezet om de file af te sluiten en wordt de buffer 
naar cassette geschreven, daarna worden bit 6 en 7 van TfiPOtff 
aereset zodat de outout weer alleen naar de terminal gaat fe#f« 
dat bit 7 oonieuw wordt geset voor een nieuwe file, 
fils J^Bt een gewpon karakter is wordt het mov. de oeiMter in de 
buffer gezet en wordt de pointer oogehoead, ftis de oainter nu 
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13S0 
13"'0 
1380 
1390 
1400 
1410 
1420 
1 430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1 600 
ISIO 
1620 
1 630 
1 640 
1550 
1 660 
1670 
1 630 
1 590 
1700 

: 72!') 

1730 
1 740 
1750 
1 760 
1770 
1780 
1730 

1 aoo 
laio 

1820 
1830 
1840 
1850 
1860 
1 S70 
1 880 
1 890 
1900 
1910 
1 ^20 
1930 
1 '=540 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
1100 



de waarce *7F heeft is de buffer biina vol en kan alleen de 
bi.if ferafsluiter $1C er noc bij. Dan'wordt de buffer od banc ge- 
zst en Kan de oointer weef naar het begin van de buffer wig- 
zen voor een nieuwe record. De ID wordf ook o^aehoo^d JEodat 
volgence record iriet een hogere ID wordt gesavefi. 

De routine voor outout naar taoe QUTTflP zou als voigt in het 
□S oogenomen kunnen woreiiB9» 

BEQ c 

JSR DUTfTY Karakter alt i id (ook) naar TTY - 
C JSR CUTTAP Controleert self ms3. TflPOUT - 

Samenvattenc lYioet outDut naar taoe dus worden gestart coor 
TftPDUT=*80 te maken en woraen beeindigc door *1E naar OUTPUT 
te stu ran. 

De contraicodes die door het OS worcen herkend oifi de outDjt 
wel of met naar taoe te sturen moeten aitiic een oaar cm- 
cen controieren. flls de outou.t naar taae fficet dan mac er ai* 
leen $80 in TPlPOUT worcen cezst als bit 6 met al is geset. 
OLiTTfiP is can ni. noc met een file sezio en het resultaat 
zou ziin dat die file niet nexjies wo ret a'cesi o;;en omdat ae 
DO inter wordt aereset en de kafa^ters in ds buffer dus ver- 
loren zijn en de laatste record afgesloten is met *1C iav. 
*1E. flis'deze file dan wordt aelezen rai ce eerste recorc 
van de nu gsinitialiseerde file oo^ worcen celezen want het 
Karakter *iE is noa niet voorcekomen. De ID van d:e eerste 
record is center *6l en de leesroutine wil een record met 
eew fS die 1 hoger is dan ce laatst gaiezen record van CB 
vorige file, cit looot dus m net nor^Cerc, -et uitzetten van 
inout naar taoe mag cus ook niet aebeuren coor $00 in "!'f5P0L'T 
te zetten maar door een kara,-<ter ilE naar GL'ojT te sturen. 
Als de controlcoce echter wordt onderscheot in een inte- 
ruot routine (die oa een keyboardinteruot reaceert) dan Kan 
het gebeuren dat die interuat gebeurt terwii! de □L"?-"' rou- 
tine'wordt uitgevoerd en als ce interuot rout ine dan ClTP'JT 
ook nog eens aanroeot aeeft dif waarschi ml ijk Dro3lemen. De 
oaiossing ligt in zelfdicipline maar ditbeoerkt de moaelij<- 
heden omdat dan alleen de outout naar taoe kan worcen ce- 
stoot als geen uitvoer wordt geoieect. Ais ds uitvoer met een 
andere controlcode kan worden oneferSrokew is er oeen siP®|j!ft#i« 
meer. I^i rn OS heeft twee flags die resD. geset ziin als er 
DO keyaoardinvoer worct cewacht en als de'uitvoer t i idel i ik 
is gestoot, door te testen of een van beide is geset 'kan Het 
OS Seoalen of het veilia *!l wa«T f&TPUT kan sturen. 

De inout van taoe routine INTAP 



Inout van tape halen wordt gestart door het msD van "^hPI^ 
te setten. Als INTAP wordt aanceroenen en bit 6 van TQPIV 
is niet geset wordt enioe init lal isat le cedaan voor het in- 
lezen van een nieuwe file zoals de lees-lD=$01 maken zodat 
bij het beain van de file worct begonnen, de b j.f f ernointer 
od"$00 zetten en bit 6 setten zodaf de init ial isat ie maar 
eeniYiaal wordt gedaan. Ook moet er dirent een record worden 
gelezen omdat 8e buffer leeg is. fils bit 6 en 7 zijn geset 
wordt met de oointer een kaf. van de buffer oehaald en wordt 
de oointer ooaehoocd. Als het karakter $00 is wordt dit aene- 
geert en een volgend karanter van de buffer oehaald. Hoe'dit 
m tie record kan komen wordt verderoo vertelfi. flis het karak- 
ter $1C is can is ce buffer leeg en wordt eerst een nieuwe 
record gelezen, en de ID-teller oocehooad zodat de volaende 
record de juiste ID heeft. Cok wordt de'pointer $00 aemaakt en 
een karakter uit de buffer gehaald. Als het karakter *$1E is 
ziin alle karakters van de file gelezen en moet naar de aanvra- 
aer teruggekeerd worden met een karakter van het kevboard. 
£r is nu een klein arobleemaje namelijk dat INPUT net beslo- . 
ten had dat IMTAP voor het karaxter zorat omdat bit 7 van 
TAPIN aeset was. Dit is als volat ooaelost, als $1£ van de 
buffer wordt gehaald dan zet INTAP in TAPIN $00 en aaat da» 
met de carry aeset terug naar INPUT die in dat aeva! ovsr- 
nieuw begint en dan het karakter van het keyboard haalt o«- 
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dat bit 7 van TflPIN gereset is. fils het karaKter dat I MSP 
van buffer haalt een gewoon kara-tter is aaat IMRP met cat 
karaKter en de carry aecleared terua naaf IlNiPUT. De LNiPUT 
routine kan nu als voigt worcien osgebouwdi 

INPUT BIT TflPIN Most inoutkarakter van taoe ko«»n ? 

BPL ft 

JSR INTflP Haal karakter van taoe 

BCS INPUT Einde van taae-file bereikt ? 

BCC B 

fl JSR INKEYB Haal karakter van keyboard 

. -1 ms - . 

Samenvattend inoet dus oiyi inout van taoe te starten het itil. 
van TflPIN worden geset. De input wordt auto«»tisch weer 
het ke/id«i^-ttiil<'r«lii«n'-«l,« tle fils is -#ff«le#«r)« 

De controlcodes die het «ioaeliik maKen vanaf het keyboard te 
beoalen of de inout van taSe of van het keyboard komt heaben 
erg weinia werk. Het stoooen van inout van' taoe maa aitiid 
en gebeurt door TflPIIM=$00 te maken (bit 6 en 7 aereset ) . "Het 
beainnen met inout van tape maa in Drincioe ook'altiid door* 
TflPiN $80 te maken maar als oo'dat moment de inout al van 
taoe komt dan komen er oo de reael die oo dat moment door het 
hoofdorogramma wordt ingelezen met IMPUT zowel kara<ters van 
de oude als de nieuwe file zodat de eerste reael van de nieu- 
we file niet aan het beain van de reael komt. 'flis cit een 
commando is dan aaat het fout. Het is dus aan te raden om 
inout van tape aanzetten alleen toe te staan als bit 7 nof 
niet geset is. 

Nader hand recorc(s v«i»«iKi«4Nii<i 

flls een stukje output voor bepaalde doeleinden met outout 
naar taoe is aesaved maar er zijn onaewenste karaxters in 
gekomen zoals het commando voor die outout of de oromst na- 
flat de outout klaar was dan kunnen deze door twee eioenschao- 
oen van iNTflP worden verwijderd. Deze eiaenschaooen ziin het 
negeren van het *00 karakter en het dedecteren van het'eindil 
van een buffer aan de hand van het $1C (of *1S) karakter 
ipv. door te kijken of de pointer *7F is. Onoewenste ^iFa;*"* 
ters kunnen nu door $00 worden vervanaen of met een &i<|«»|EflM»^ 
ve worden ge"delete". Wat er dus moet"§B5«yp»a is Am -tm&WPi 
oQzoeken en laden, de veranderinoen aanr br«^sfe «^ »a« Isi* 
geheel weer saven onder dezelfde ID. ' 

Leesfouten afhandelino 



Door het nu>meren van de records kan het niet oebeuren dat 
een record wordt overgeslaoen. Een leesfout tijdens het le- 
zen van een file is dus niet fataal. flls elke record bc*»- 
ter maar eenmaal is aesaved dan worden alle iimiropvolaer^tf* 
records genegeerd. ftis de file era lana is en je bent' 
koffie gaan drinken tijdens het inlezen dan is het handle te 
weten welke ID die record had zodat le bij die record oonieuw 
kan beginnen. Ik save eike record eenmaal omdat ix biina nooit 
last heb van leesfouten (tok, tok, even afkloopen). in OS 
print bij het teaenkomen van een route ID zowel de aelezen 
ID als de gewenste ID, als ik dan verzadigd van de ftcffie 
weer achter de terminal olaats neem en er'ziin ondertussen 
meer foute ID's georint dan oo het scherm aassen dan kan ik 
nog steeds zien welke ID de oemiste record heeft. Het is 
echter ook mogelijk elke record twee maal te saven. flls de 
eerste record goed wordt gelezen wordt ds tweede vanweoe de 
ID aenegeert. en als de eerste niet aoed wordt aelezen'wordf 
de tweede automatisch wel gelezen. De leesroutine moet het 
dan wel uit zichzelf oonieuw proberen, de standaard KIM 
routine is dus niet te gebruiken en is sowieso niet als mitfe'* 
routine aan te roepen. Het is dus wel handig een zsXfep-* 
schreven OS te hebben met eigen save en load routitws, |i»t 
trouwens ook al aeldt voipr hit imolementeren van de 4 
trolcodes. Mijn save routine saved aitiid twee maal, behal\« 
als de SINGLE flag geset is die Save zelf naderhand weer re- 
set. Je moet zelf maar zien of je een of twee maal wilt sa- 
ven, als JB het eenttaal doet kan je eok Altijd de heJe filip 
twee maal savf» wftt v»fsl«iiifiQ is lv». rffea#ut» w@-m 

band. 
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2890: Enkele toeoassinaen 
2900: -— 

2910: Mu uitaelead is hoe het saven en laden van de karai^terl/O gaat 
2920: sal ik'de toeoassingen vertellen die ik bedacht hea en waaf 
2930: iedereen wel een eiaen toeoassinc aan toe kan voegen. 
2940: Het saven van data ^reals, integers, stings ed. ) in Basic is 
2950: in het begin al uitgelegd on\ de interesse te wexken. Ik ben 
29S0: met bet realiseren van INTflP en DUTTflP begonnen nadat i:< diti- 
2970: st reeks decemoer vorig jaar behoefte kreeg aan een adressen 
2980: bestand. In Basic sou cat coed kunnen vanwege de st ringmani- 
2990: Dulatie commando's maar data wegschrijven in files kan'mijn 
3000: Basic niet of zeer moeiiiik. In assembler werd het te veel 
3010: werK. Toen iK omst reeks die tijd een Drogramma bekesK waarin 
3020: een lanae reeks bytes in bloKken naar cassette werden geschre- 
3030: ven kwam i^ od net idee dit ook met karaKteroiit out te doen. 
3040: Ik heb in Basic een simoele namenaestand-manaaer gesc-ire- 
3050: ven die verderoa is celist als onderdeel van dese'MicroPde file 
3060: waarin ook deze bescnr i j vine staat (wil de redact ie dat even 
3070: bevestigen ?). Dit is gedaan door onder Basic de controicode 
3080: vQor outout naar taoe in te tikKen en dan aewoon LIS^ te ge- 
3090: ven en na de GK weer "outaut naar terminal" te geven. Onder 
3100: Microftde aeef ,ie het fl(n3end) commando en "inout van 
3110: tape" en sDeel^ de onder Basic oDgenomen file af. flis de file 
3120: is gelezen wordt de inaut automatisch weer van het keyboard 
3130: gehaald door het $1E kara-(ter waarmee de file eindigde. 
3140: Nu zijn een aantal dingen iY:"celi ]■< als je B< Microfide hebt. 
3150: Met het V(ind) commando kan le een Cross Reference ma.-<en van 
3160: de variabelen (of zelfs commando's) met V: (variaoele naarn) : 
3170: waarna alle regels waar ceze variabele voorkomt verscni^nen 
3180: (als je eerst LT 10 of zo geeft cat orint het V commando oo.-t 
3190: aeen Mfl-regelnummers en heb ,je alleen de Basic regelnummers) . 
3200: Dit vereist soms wel enige naverwerkinc met de hand, want als 
3210: je met V een variaaele zoekt met een korte naam als dan 
3220: zullen ook de R in PRINT, FOR ed. worcen "gevonden". 
3230: Met het V(ervang) commanco kan je ook de naam van esn varia- 
3240: bele conseauent ' in het hele programma vervangen. Het moet 
3250: dan wel mogeiijk zijn het Basic " orog ramma weer in Basic-vorm 
3260: te cieten. 'Dit gaat'door het list zonder regel nummers-cciYimando 
3270: ts aeven (i_T) en dan voor dat je return incrukt "outout naar 

taoe" te geven. Na het listen weer "output naar terminal" geven. 
Onder Basic aeef je "inout van taoe" en soeelt de onder MR' 
oooenomen file af'en Basic (en Mft al eercer) zal met beter 
weten of je zit het hele programma met de hand in te tiKken 
(onderhand net wereicrecord tikken veroul verend ) . De soaties 
die LT aan het beain zet worden door Basic geneaeert, en als 
"LT" of "Ok" meegekomen zijn zal Basic alleen een ongevaar- 
lijke foutmeldina geven. 

Dit brengt me gelijk naar de volgende toeaassma namelijk het 
er 03 na houden van een subroutine biDl lot -leeK in Basic,' die 
ook een andere moaeliiKheid innouct nl. het "merce"-en van Ba- 
sic Drogramma's, te vergeliiken met het commando'H in Microflds. 
De te meraen oroaramma's worcen af zoncerli.ik gelacen onder 
Basic en dan met'"outout naar taoe" gelistJ flIs er een Basic 
□rocramma in het geheugen zit kan nu'een ander worcen ge- 
"merge"d door "inBut van taoe" te kiezen en dan de file die 
gemaakt is toen net toe te voegen Basic orogramma onder "out- 
5ut naar taoe" werd gelist, af te soelen. Hierbij moet je er 
natuurlijk oo letten dat beide gedeeltes andere reaelnummers 
heoben. Dit kunnen mergen is de'voo rwaarde voor hef er od 
na kunnen houden van een suDroutine bibliotheek. ben voor- 
beeld is een aantal arafische routines voor liin trekken, of 
een vlak inkleuren die in meerdere Drogramma's gebruikt wor- 
den. Deze routines zullen van tijd tot'tijd verbeterd of uit- 
aebreid worden en als ze dan in elk orogramma zitten ingebouwd 
dan moet je steeds al die orogramma' s aanoassen. fils ze' 
echter in een bibliotheek zitten hoef le ze maar eenmaal aan 
te oassen. Je hoeft ze oas te iinken als je een hoofdorogramma 
wilt draaien. Dit linken is zelfs misschien wel in te bouwen in 
het orogramma dat ze nodig heeft, je hoeft dan alleen maar de 
betreffende files met routines af te draaien oo de cassette-, 
recorder. Hierbij is de volgende constructie moqeli.jk: 

Proaramma dat aangevuld moet worden met subroutine: 
10 fiEM Hoofdorogramma 

s 

200 FOR N=l TO (aantal te mergen subroutine) 
3&60: 210 PIKE (TAPIN, 128) 



42 



3290 
3300 
3310 
3320 
3330 
3340 
3350 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
3450 
3460 
3470 
3480 
3490 
3500 
3510 
3520 
3530 
3540 
3550 
3560 
3570 
3580 
3590 
3600 
3610 
3620 
3630 
3640 
3fi50 
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3670: 

3680: 

3690: 

3700: 

3710: 

3720! 

3730! 

3740 

3750 

3760 

3770 

3780 

3790 

3600 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

3680 

3890 

3900 

3910 

3920 

3930 

3940 

3950 

3960 

3970 

3980 

3990 

4O00 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4080 

4090 

4100 

4110 

4120 

4130 

4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 i 



230 END 
240 NEXT N 

Te lezen biblotheek-subroutine! 
"500 REM Subroutine 

■ 

590 RETURN 
SOTO 240 

<tiE> » 

De file die de aanvullina verzorot (alleen bii automatiseh 
mergen) kan niet met listen ondef "outout naar taoe" alleen 
worden gemaakt maar vereist enia editten van de cassette re- 
cords. Na het lezen van de voriae oaraarafen zal dit echter 
niemand onitiogeliik zijn. 

Het zichzelf uitbreiden van een Basic oroarannma met suorou- 
tines dat Artificial Yntel 1 iaence-aeinteresseerden leuk 
zullen vinden brengt ons automatiseh bij de laatste toeo*** 
sing die ik 03 het ogenblik kan verzinnen nameiiik aut oe)|«ettl4> 
files. Dit houdt in cjat je "inout van taoe" kies^ en dan een 
file afsoeelt on de cassetterecorder die alle intoetsinaen 
bevat die je vanaf dat moment zou moeten aeven om een beoaal- 
de klus te klaren. Dit ka"^ het oostarten van Microfide ziin 
tot 00 het Dunt dat het fi(poend) commando is aeoeven of het 
veranderen van een beoaald orooramma zodat het onder een be- 
oaald ODerating System of versie daarvan kan draaien. De mo- 
gelijkheden hangen sterk van het OS af of eigenliik van het 
DrogrampTia dat de inout verwerkt. MS-DOS bijvoorbeeld heeft 9mt 
een soort orogrammeertaal aan de DOS-commando's toegevoegd 
die net o. a. mogeli ik maakt halverweae het auto-executeren va- 
riabele qsaevens aan de oersoon achter het toetsenbord te 
vragen. Dit kan bi.woorbeeld de tijd en datum of zo zi.m die 
dan in de juiste adreslocaties wordt gezet. Dit wordt bijv. uit- 
gevoerd door een autoexecute file die de boot-routine bij het 
aanzetten van de comouter alti.id uitvoert. Ook kan je hiir hmt 
automat iscn laden van Basic of zo inzetten zodct ye enige 
conden na net aanzetten van de comouter in Basic of zelts mma' 
draaiend Basic Drogramma zit. De autoexecute files Kunntn ©flt 
worden aebruikt voor het creeeren van nieuwe commatldo'a 1« 



Basic of Mfl, ongebouwd met de standaard commando 
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fll met ai geloof ik dat ik de KIM en Junior bezitters die er 
over denken nun simDeie comoutert le in te ruilen voor lets 
fraais van ca. tienduizend piek, maar dat bedrao toch niet 
kunnen ooDrengen weer enioe hooo heb aegeven. Met enioe in- 
vent iviteit zoals hierboven ten toon is gesoHifid valt'er mm 
best wat van te bakken en kan je nog zeer r*(8»i|«i»%io de kicl 
krijgen van het bedienen van een krachtigere comouter. 

Het simoele OataBaseManager orogramma in Basic 

10 REM Simoel DataBaseManager orocramma 
12 NO: REM Het aantal nanen in best and 

15 DIM ft* (500) 
20 PRINT: PRINT 

25 PRINT" 1 Toevoeai na aan best and intikken 

30 PRINT"2 Toevoegina aan bestand van band lez«n 

40 PRINT"3 Bestana od band zetten 

50 PRINT"4 Bestand orinten 

60 PRINT"5 Naam veranderen 

70 PRINT"6 Bestand wissen 

80 INPUT"Beef uw keuze (1-6) : ";Z 

90 ON Z GOTO 100,500,1000,1500,2000,250© 

95 GOTO 20 

99 

lOO" II#ilT"H«ey«el rmovin toevoegen t "sZ 
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4350 

4360 

437u 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4750 

4770 s 

4780! 

4790 : 

4800: 

4810: 

4820: 

4830 i 

4840: 

4850 

4660 

4870 

48B0 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

S»s 
5100 s 



110 
120 
130 
135 
140 
199 
500 
510 
520 
530 
540 
550 
560 
999 
1000 
1001 
1002 
1005 
1010 
1020 
1030 
1040 
1050 
1060 
1499 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1999 
2000 
2010 
2020 
2030 
2040 
2499 
2500 
2510 
2520 
2530 



FOR K=N+1 TO 
PRINT K;"= "; 
NEXT K 
N=N+Z 
SOTO 20 



N+Z 

: INPUT 



fl$<K-l) 



POKE 57100, 128! REM 
INPUT Z! REM 
FOR K=N+1 TO N+Z 
INPUT fl»(K-l) 
NEXT K 
!M=N+Z 
GOTO 20 

' IF N=0 THEN 20 
PRINT" Zet recorder 
PRINT CHR$(10) :REM 
POKE 57097, 128: REM 
PRINT N: rem 
FOR K=l TO N 
PRINT Pl$<K-i) 
NEXT K 

PRINT CHR$(30)!REM 

SOTO 20 

"if N=0 then 20 
FOR K=l TO N 
IF K=20#INT(K/20) 
PRINT '■ "; 
PRIN"?" K;"! ";fl$(K- 
NEXT K 
SOTO 20 



taoin=$DF0C=57100 
aantal namen in file 



OD 0 3nemen en druk totti in ";!G£T Z$ 

linefeed 

t aoo ut =$DF09=57097 
aantal nSmm ill fi lit 



End of file=*lE=30 



THEN SET Z*!BQTP 1540 
1) 



INPUT"Seef nummer van record" ;Z 
IF N=0 OR Z>N OR Z <1 THEN 20 
PRlNT"Record luidt ":A*(Z-1) 
INPUT"Geef nieuwe iswSOMi s*^ff*l) 

GOTO 20 

'lNPUT"Weet u het zeker (Y/N)":Z* 
IF Z$<> "Y" THEN 2530 
N=0: PR I NT "Best and is gewist" 
SOTO 20 



Listing van OUTfiP en INTfiP routines 







Ranee roe oen 


OS suDroutines 


IB 






* 


*CC1B 


Save 


met ID van DSA tat DEft 


78 


cc 


SET 


« 


$CC78 


Lees 


file met ID vanaf RSI? 






Parameters 


voor cassetteroutiniis 


00 


DF 




* 


»DFOO 


Lees/Sav* "ftle met ID 


01 


DF 


SINGLE 




ID 


+01 


Save eenmaal (zi^ teKSi) 


02 


DF 


DSA;. 


« 


SING-E 


+01 


Startaores datacv^iiii - 


03 


D" 


DSflH 


« 


DSAL 


+01 




04 


DF 


DEAL 




DSAH 


+01 


Eindadres+1 dataaebied 


05 


DF 


DEAH 


» 


DEAL 


+01 


Zet data vanaf RSAL/H ' 


06 


DF 


R3AL 


* 


DSflH 


+01 


07 


DF 


RSAH 


« 


RSAL 


+01 








Variaoelen 


veer taoel/D 


routines 


06 


DF 


CHAR 


« 


R^ 


+01 


Voor bewaren Pf#rKlf%er 


09 


DF 


-■APOUT 


» 


CHAR 


+01 


FlagJOutout naar taoe 


m 




TPNTO 


* 


TflPOUT 


+01 


Pointer in out out buffer 


m 




fi«Krr 


* 


TPNTO 


+01 


SavB*iD v&or iuffep 


oc 


DF 


TAP IN 


« 


TIDOUT 


+01 


Flaci!lnoiat van taoe 


OD 


DF 


TPNTI 


* 


TAP IN 


+01 


Pointer in inautlJUffBr 


OE 


DF 


TIDIN 


* 


TPNTI 


+01 


ID van voifewde feegwi 



I/O buffers voor records oq taae 
00 DE TBUFO * »DE00 Out out buffer naar taoe 
80 tM TttJFI * TBUFO +S0 Inout buffer van tase 



§1108 

5120: 
5130! 
51408 
5150s 
5160! 
5170! 
5180! 
5190! 
5200! 
5210! 
5220! 
5230! 
5240! 
5250! 
5260! 
52701 
5280* 
5290* 
5300! 
5310: 
5320! 
5330! 
5340! 
5350 i 
5360 » 
5370! 
53801 
5390? 

il?0! 
5420! 
54308 
54408 

54501 
54601 
5470 1 
5480 

5430 
5500 1 
5510 
5520 
5530 1 
5540 
5550 1 
55S0 
5570 
5580 
5530 
5600 
5610 
5620 ! 
5630 : 
5640 ! 
5650 I 
5660 : 
5670 : 
5680 ! 
56901 
5700 ! 
5710! 
5720! 
5730: 
5740 1 
5750 ! 
5760 : 
5770 ! 
5780 i 
57901 
5800! 
5310! 
5820 ! 
5830 ! 
5840 1 
5850 : 
5860 1 
5870 1 
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DOOO 


6D 


08 


DF 




CHOR 




D003 


2C 


09 


DF 




BIT 


tftPOUT 




D006 


10 


73 






SOL. 


9^ 


Is bit 7 niet Qi»e«t f 


DOOB 


70 


OF 






svs 


bSI 


Is bit & geset ? 


DOOA 


09 


CO 






LDfilM 


♦CO 


bit i'en 7 


DOOC 


SD 


09 


DF 




Sift 


TftPQUf 


ItViit 00 inter 


DOOF 


ft9 


00 








♦00 ^ 


DOil 


80 


00 


DF 




mm 






D014 


fl9 


01 








$01 


EB»«i« record heeft 


D016 


8D 


OB 


DF 




STfl 


TIDOUT 




0011 


Sin 








TXfi 






DOlft 


48 














DOIB 


98 








TVW 






DOIC 


48 








PHfi 






DOID 


OD 


08 DF 




LDfl 






D020 


FO 








BEQ 




Null characters rtegeren 


D022 


C9 










Negeer linefeeds 






4E 






BEQ 


ObJ3 


nrioc 


no 


IE 






CMPIM 


*< C 

^Ic 


tno Or riie r 


PU#iS 




OB 






BNE 


osr'l 




VVZH 


HCl 


Oft OF 




LOX 


1 KN 1 (J 




DU2U 


yj 


00 


DE 




STfiflX 


1 our U 


Laatste met %i.t. af5j.uitsfi 






00 






LDflIK 




Out out alleen naar terminal 




An 

rv 






STfi 


TQOni IT 
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ocu 


isa xaatste ourTsr savsfi 






Oft 


DF 


iSli 


LIX 




£vii KaraAfcer in ojTrer 






00 BE 




STOfiX 


tsUru 






CO 








I NX 




Incre!rtei-"!teer coinz&r 






Oft 


DF 




SIX 


TQMTn 




D04i 


£0 


7=' 






CPXI*^ 


*?F 


Is ce juffer vol ? 


D043 


DO 


2F 






BVE 


SSB 




D045 


flS 


IC 










End of recorc 


D047 


9D 


00 


DE 




S^fiflX 






D04fi 


m 


00 




BSH 


-Drlir 


tblf: 


Save ce at-"iels -..frer 


D04C 




02 


D~ 






DSO.. 


Vertel SflVE buf f erceoiec 


D04F 


fig 


DE 






l.DPI^' 


"I'ELFC 


/ 


D051 


an 


03 


D- 




STft 


DSPi.- 




D054 




SO 








TEUFI 




D056 


BD 


04 


DF 




S~fl 


DEPi- 




DU59 


h3 


DE 






L.DRI>! 


-rr^: tc* T 
1 t Jr 1 


/ 


D05Et 


SD 


05 


DF 




S^fi 


DEfl-i 




DObU 


a9 








i_DHir 


$~F 


E«wii:alS^'^»«»' seer saven 


D060 


6D 


01 


DF 




S~fi 


SINGLE 


D063 


flD 


OB 


DF 




LDA 


TIDGUT 


Save record *#!' IJ>*t!DDLT 


D066 


8D 


00 


DF 




STO 


ID 




D069 


20 


IB 


CC 




JSR 


savs 




D06C 


fl9 


00 








$00 


=!esE't cs comber 


D06E 


8D 


Oft 


DF 




STfi 






D07i 


EE 


OB 


DF 




IMC 


TIDQUT 


I'JaaK ID volcands rerorc 


D074 


SB 






BSB 


p:_ft 






D075 










TflY 






D076 


&a 








PlR 






D077 










Tax 






D078 


AD 


03 


D- 




LDfi 






Don 










RTS 







;R^ji|ti|S§ INTflP leesr nara^ters van taoe $ 



D07C sa 

D07D 48 
D07E 98 
D07F 48 
D080 2C 03 
D083 70 OC 



DF 



TXA 
PHR 
TYO 
PHfi 
BIT 
BVS 



TflPIM 

BSC Is bit 6 ceset ? 



ke:nme:r 



5 8 flu ' 




H3 


PA 






1 7^ T M 

LDH i " 




5390 ' 


UOo / 


OiJ 


AP 


AC 




S ( R 


X r*! T M 

ThPIN 




UUOH 


AQ 
M3 


A ■* 

Ul 










u:)lO ' 




Q A 


AC 


AC 




S 1 H 


T T r\ T hi 

TIDIN 


533o I 


DOor 


f\A 
J/U 












J rj40 < 




AC 


AT\ 

00 


Dr 




LDX 


T ""i h 1 "T T 


crod"> ■ 
U 3DU ! 




iiU 


Q A 

80 


De 




LDhhX 


TBuFI 


□ybu ! 


r\ .-"s o "7 


au 


A a 
OB 


Tvrr 




STR 


GHhS 


5970 J 


r> .."s o r\ 










T ^ ! V 

INX 




Zi daV ! 


UU3D 


3E 








b . X 


; r-'!\i X 


5390 5 




n n 
L 3 


ou 






Cf'iP I y 




EOOO : 


DOflO 


F 0 








3-Q 


BSC 


6010: 


D0fl2 


C9 


: ir 








$1E 


bUiU > 


Dufi4 


A A 


Ub 






0\'C 




qL'uU • 


JlJHo 


GQ 
H :? 


uO 






! rsA T m 


AAA 


bOi*'--' » 


n A n 3 


Q A 


OC 


DF 




a i H 




bi..)5U ^ 


DOftB 


Dtj 








Pii A 








HO 








TQV 
i HT 




6070 s 


DOflD 


68 








PLfl 






DOPE 


Ah 








TAX 




so 90 : 


DOftF 


WW 








S-C 

Www 




6 1 00 ' 


DO 30 


60 








RTS 




6110 5 
5 1 20 ; 


DOBl 


C9 






BSP 


r; vp T >! 


$:C 


6 1 30 5 


DOBS 


DO 


ID 










6 1 4'i 5 


D035 


fiD 


OEOD- 


B3R 


LDA 


^ ■ 5i*^' 


6 1 50 3 


DOBS 


8D 


0.0. 


AC 




STO 


ID 


£ 1 3 


DOBB 


fi9 


ao 






1^ ^ I ' 




C -1 7A * 
D .L /U > 


uvtsu 




06 


DF 




b . H 


KShL 


c "< art • 


DoCO 


AO 


DE 






— JH j. 




C I QA " 
D i 3U • 


UVLZ. 


an 


07 


D.^ 




o i H 


KoHrt 


C OAA • 
D^W • 






78 


CC 






b£i 1 




n A p ci 




OE 


DF 






T T T\T M 
1 XUIN 




n APD 


AQ 


00 








* AA 


c •"%"yA ■ 
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n r\ 

BD 


OD 


DF 




STh 


TPNTt 


C.'">Art • 
D^4U • 


I/VITV 


irrt 
. w 


BF 










6250 : 
















6260 : 


D0D2 


68 








PLfl 




6270 : 


D0D3 


AS 








TRY 




6280 : 


D0D4 


68 








PLfl 




6290 : 


D0D5 










TAX 




6300 : 


D0D6 


AD 


0 8 




LDfl 




6310! 


D0D9 


18 








cue 




6320! 


mm 


60 








STS 




6330! 
















6340 s 
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Set bit e'en 7 
Eerste reeerd fweft ID«Oi 
Lees record en reset do inter 
Haal karattter ait #«ffsf 

Hsog 00 inter 03 



NeoBs r edit -N a 1 1 cna raetera 
End of file ? 

Inaut weer van keyisoarc; 



Inaut van Kaysoarc; nalen 

Since van recorc ? 

^Kjere meat IDkTIUIn heaaen 

Meaw recorc lezen in suffer 

/ 



VolcemJe p«:ord'B ID 
Reset 0O>if¥i;lir 

Hael karakter uit auffesp 



File had nog een karakter 
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Net dit orograMM vtiwhijnt in Hi linlwrlMvmhNk yin htt leiiirt i» t«t«l« oatelUni mm 4i iqpkMt#f niil. 



100 PRINT-{CLR}E\CN 6E0ULO...* 
lOS FDRI^TD1018:REflDA:CK=CK+fl:PaKEI.n:NEn 
110 ira(()17539T)ENPRINT'{D(IUN}NIET GOED GELWEN* 
115 PRINT-DE DATA STATEMENTS ZIJN VERMIM(T.':END 
120 SyS8K:PRINT-{CLRH2 DOMHllinMATISOC MTAREBEL TELiER.-:NEN 
886 DATA 173,036,003,201,150,200 



892 DATA 001.096,141,151,003,173 
898 DATA 037.003.141.152,003.169 
904 DATA 150,141,036.003,169,003 
910 DATA 141,037.003.169,000,133 
916 DATA 254,096.032,087,241,133 
922 DATA 251.134,252,132.253 006 
928 DATA 201,013,240.017,201,032 
934 DATA 240.005,024,101,254.133 
940 DATA 254.165.251.166,252,164 
946 DATA 253.040.096,169.013.032 / 
952 DATA 210.255,165.214.141,251 / 



958 DATA 003,206,251,003,169,000 
964 DATA 133,216,169,019.032.210 
970 DATA 255,169,018.032.210.255 
976 DATA 169,058.032,210,255.166 
982 DATA 254. 169, 000, 133. 254, 172 
988 DATA 151.003,192.087.208,006 
994 DATA 032.205,189,076,235.003 
1000 DATA ^,205.221.169,032,032 
1006 DATA 210,2S5.ai2,21«,mi73 
1012 DATA 251,003, ^»^«|.m 
1018 DATA 003 



llllllllllllllllllllllllHtlllllllllllllllllllllllllllllMllllllllllHlllllllMH I MHlllHIHMII^^^ 



46 



E^E Ei O 2 



iKEImme:r 



door: 



G. van Dpbroel! 
Hooglanden 28 
9881 LB Zuidborit 



(6EV0P> 



1. Inieiding. 

'aamsmaaa^at 

lit deze af levering wil ik iets neer vertellen over de 
tianier waarop FORTH in elkaar zit. Bovendien zal ik trach- 
ten duidelijk te naken waaron de Hocus Spokes-achtige op- 
ifricMiB wafl Fridys Jooknaii 11] flodio zijn on woordeo i« 
UlN m£h 2tttm (te ISOm . 

Qi een en ander duidelijk te naken begin ik net een be- 
schrijvino van de geheugenindelino van een standaard 
FORTH systeen zoals die op de JUNIOR gebruikt Mordt. 
IK z|Jk in dezt a^ltverino voorsMMiiik bcperkm tot 
#rmt M de diar^ ilplffide vfi'siM. 

2. Beheugen indeling. : 



ASS8 



3F8I 



9BM 



-! <- LIHTT 
I 

i 

1 <-- USE 

! <- PREV 

\ ' - 



In fiouur 1. is de geheugenindelino van de FORTH uit de 
cassette bibliotheek Heergegeven. Deze indeling is repre- 
sentatief voor andere op tig-FORTH gebaseerde systemen on 
een JUNIOR. De R^-DISC wordt gebruikt als tussenopslag 
van gegevens. Met behulp van het woord TO-TAPE kan de 
inhoud hiervan naar cassette oeschreven worden en net 
Mialp vm htt mwi FRQH-TAPE wordt dit gebied oevuld set 
PfMHtf iR#i«»^4»«fiiette gehaald Norden. 

BiJ systenen net tenninste een -floppy-disc oi ander random 
access plaoiediua veryaltjwMM^jte Jfift-^^^ en kao dit 

Ulak onder de RAH-DISC ligt het USER-gebied. Hierin liggen 
een aantal zgn. user variabelen. Oeze Mordtn ond^iiftittrd 
net het Moord 'USER'. Voorbeelden hiervM if Iff dir vwit^ ' 
belen TIB, FENCE, CONTEXT, yOC-LlNK, .... 
Dit zijn neestal variabelen in FORTH zelf gebruikt worden. 
Een iMta] van. 4eM4fvial)t1m zulleo Mi Ja dize afltvtriiN) 

Direct onder het USER-gebied liggen de DISC-BUFFERS. Deze 
bu^^ers vomen het interface tussen in^ornatie op disc o* 
in de RiW-DISC en FORTH. Als wff net Iwhulp van de woorden 
BUFFER oi BLOCK het startadres van een DISC-blok opvragen 
dan krijgen we altijd een adres in de DISC-BUFFERS. Als 
het opgevraagde blok niet in dit gebied aanwezig is, dan 
zorot FORTH ervoor dat het betreffende b1<A van disc ge- 
haald wordt. Door het woord UPDATE kan aangeoeven worden 
dat er iets in het blok gewijzigd is waarna FORTH ervoor 
zorgt dat het blok teruggeschreven wordt als het betreffen- 
de gebied in de DISC-BUFFERS voor een ander blok nodig is 
0^ wanneer de opdracht SAVE-BUFFERS of FLUSH gegeven wordt. 

De bovengenoende oebieden hebben een vaste positie in het 
geheugen, dit in teQenstelling tot de TEXT BUFFER, naar 
zijn pointer ook wei PAD genoend. Dit gebied begint al- 
tijd op een vaste afstand van het eind van de DICTIQNMY. 
De TEXT MFER wordt o.a. isbruikt voor het fomaterM 
v«i gititiM. 



NARY ligoen 6B bytes. 



Tussen de TEXT BUFFER en de DICTIO*^RY 
In de FORTH docunentatie imrJ i^t . 
noend. Het is nij nog Alm}^ 
voor gebruikt wordt. 

Gaan we nog lager in het geheugen, dan konen we in de 
DICTIONARY. On dit oebied draait het in het gebruik van 
deprograimertaal FfiRTH. I« de DICIIOfyiY staaihw d« 
FflfFNuoertfeA ttitgevoerd meten mrden. Mmtil ilM mt 



TEXT-BUFFER 



■WORD" -BUFFER 



2IM 



1281 



BOOT-UP LITEIMLS 



RETURN STACK 



TEmm-BilFFER 



1^ 



8i9F 



8828 




<~ SP 
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de'finities weer in de taal FORTH zeH. In de voloende para- 
graa^ km ik hier nog op terug. Boven in de DICTIONARY 
zijn 22 bytes oereserveerd als zon. BOOT-UP literals. Hier- 
in staat onder'andere het RUB-OUT teken <op adres 26BE). 
De inhoud van deze lokaties wordt gebruikt on bij eeo 
Koude start de pointers goed te initial iserfi. Ook hifr 
kon ik in een volgende paragraaf op terug. 

Pagina 01 wordt op de 6582 gedeeld door de terninal-input- 
buHer (TIB) en de return-stack. De TIB wordt gebruikt als 
buffer bij het inlezen vanaf de terminal en het gebruik van 
de retHrn-stick vK'mdH'stffl it all Meitd. 

In paoina 88 ligt tenslotte de FORTH-stack. Hierover heb ik 
in affevering 1 van deze serie al uitgebreid verteld. 

3. OpbouM van de DICTIONARY. 



Zoals in de vorige paragraaf al opgenerkt is, zijn de nees- 
te woorden in de DICTIONARY in FORTH gedefinieerd. Ik zal 
beschrijven hoe de opbouw van de DICTIONARY is. Ik gr- 
bruik hierbij het volgende voorbeeld: 

i TEST 12 15 + . i 

t MRIK-mLO If 8 DO CR HALLO" LOOP } 

Als we nu in de DICTIONARY kijken. dan zien we dat deze 
woorden opgeslagen zijn zoals in tiguur 2 is weergeven. 

Als eerste staan in de definitie twee bytes. In het leu 
byte staat de lengte van de naati, in het high byte staan 
enkele status bits. Dit zij o.a. het snudge-bit dat aan- 
geeft dat de definitie geldig is en het innediate bit dat 
aangeeft dat bij conpilatie net woord toch direct uitge- 
voerd raoet worden. Achter deze twee bytes staat de naan 
van het woord. Het betre-f-fende gebied in de definitie 
heet NAME FIELD en de bijbehorende pointer heet name field 
pointer NFA. Meteen na het name field kont het link field 
net de link field pointer LFA. Dit is de verbinding met het 
woord dat lager in de DICTIONARY ligt. Het link field ver- 
wijft naar bet am fitltf vfii kit liger gtligcn Moord. 

Na het link field kcnt het code field net de code field 
pointer CFA. Dit is de verwijzing naar de zgn. inner inter- 
preter die de votgenito \wrMi jzinsen itti»{K>eteert en nit- 
voert. 

Hierna begint het parameter field net de parameter field 
pointer PfA. Hierin staan verwijzingen naar de code fields 
van de woorden waaruit het woord opgebouwd is. 

Opvallend is dat hoewel een groot deel van de woorden waar- 
uit een definitie bestaat rechtstreeks in het parneter 
field terechtkonen er toch enkele woorden zijn die omge- 
zet worden in andere woorden. Dit zijn onder andere de 
woorden die een lus definieren. Dit isoedaan on de snel- 
heid op te voeren. De woorden DO en LOOP till Ml ifilc als 
irtlEDIATE gedefinieerd. 

In de DICTIONARY vornen alle woorden een keten die start 
bij het laatst gedefieerde woord en eindigt bij het eerste 
woord. Als FORTH nu bij het IMTERPRETeren van invoer een 
woord zoekt, start hij bij het laatst gedefinieerde woord 
en loopt de keten af terug totdat hij net woord gevonden 
heeft. Tijdens het uitvoeren van de woorden hoeven de woor- 
den waaruit de definitie bestaat echter niet neer opgezocht 
te worden. On deze reden is FORTH aannerkelijk sneller dan 
een taal als bijvoorbeeld BASIC die altijd geinterpreteerd 
wordt. 

4. VOCABUUIRYs. 



In FORTH bestaat de mogelijkheid zelf zgn. VOCABlAMfs te 
definieren. Een Wi^K/iN iievat een aantal woorden die 



44F9 .BYTE 

44FE .HORD 

4SBB .HORD 

4582 .MORD 

4584 .MORD 

4586 .NORD 

4588 .MORD 

458A .WORD 

458C .MORD 

4SeE .MORD 

4518 .BYTE 

45 IC .MORD 

45 IE .MORD 

4528 .MORD 

4522 .MORD 

4524 .MORD 

4526 .MORD 

4S28 .WORD 

45:M .MORD 

452C .BYTE 

4S32 .HORD 



«4,'TES',D4 

44Ei 

25D6 

282A LIT 
e88C 12 
282A LIT 
888F IS 
2499 ♦ 
375D 

246C :S 
fSA.'DRUK-HALL'.CF 
44F9 
25D6 
282A 
888A 
265D 
41E4 
22F4 
2AF6 

§5.'HALL0' 
423C 

m 



<~ NFA 
(~ LFA 
<~ CFA 



<~NFA 
<- LFA 



I 

(DO) 



(LOOP) 



Fi^ 2: Mijze waarop het vooiteTd In de DICTIONARY 
opgeslagen is. (FORTthm. 

min of meer bij elkaar horen. Voorbeelden van dergelijke 
VOGABULARYs zijn EDITOR en ASSEMBLER. De basis-VOCABUlMY 
heet FORTH. 

Een VOCAnJLARY wordt gedefinieerd net de opdracht: 
VOCABIAARY naan 

Ob aan een bestaande VOCAffilLARY nieww wisHlM «B#i»m' 
gen noet de opdracht: 

naai KFB>IITIIIiS gegeven worden. 

De gedefinieerde woorden konen beschikbaar door het in- 
voeren van de naan van de VOGABUIARY. 

1) Met de opdracht EDITOR konen de woorden van de editor 
beschikbaar en kunnen hierna gebruikt worden. 

2) Net de opdracht EDITOR DEFINITIONS kunnen woorden aan 
de editor toegevoegd worifen. 

3) Terug naar de basis-VINjMt&ARY gaan we na geval 1 net 
Bdracht " " 
miONS 



de opdracht FORTH en na gcval 2 iMt de opi^achten FORTH 
DEFINIT — 



Intern is een DICTIONARY als volgt gedefinieeerd. In 
FORTH bestaan twee variabelen: CURREKT en CONTEXT. 

CONTEXT wijst naar een veld waarin het adres opgeslagen 
wordt van het NAME FIELD van het laatste woord in de 
yOCMULARY waarin het zoeken van een woord begonnen wordt. 
CURRENT wijst naar een dergelijk veld van de OOCABULARY 
waaraan nietM te definieren woorden worden toegevoegd. De 
velden waar CURRENT en CONTEXT naar toe wijzen liggen vlak 
boven de definitie van de naan van het betreffende 
BULARY. Bij het invoeren van de naam van de VOCABULARY 
wordt het adres van dit ^d in iMW geschreven. ii m- 
roep van het woord DEFShIiiIIS eSpi«H>t 3e inftontf ' 
CONTEXT in CURRENT. 



Als er aan een VOCABULARY nieuwe woorden worden toeoevoegd, 
dan wordt de inhoud van het veld waar CURRENT naar toe 
wijst gewijzigd. In wezen kan het definieren van een nieuwe 
VOCABULARY gezien worden als het naken van een vertakking 
in de keten waamee de woorden in de DICTIONARY verbonden 
zijn. Op de vertakkingen worden de eini^Hinten van de nieuwe 
ketens Dijgeiiou<ten. Oh het verwijderen van neo'dere VO- 



4B 



Ol 



E 5 □ 5 



KEMMER 



CABULARYs in een keer mogelijk te naken, zijn de VOCA- 
BULARYs net elkaat verbonden. Het eindpunt van deze keten 
staat in VOC-LINK. 

5. Een koude start. 



Bij een koude start noeten de pointers HERE (einde DICTIO- 
rWRY), VOC-LINK, COKTEXT, CURR&IT en FENCE <adres van het 
eerste woord dat eventueel verwijderd nag worden) geiniti- 
aliseerd worden. Hiervoor uordt gebruik genaakt van de zgn. 
BOOT-UP literals. Deze liggen in een gebied van 22 byte te 
beginnen op adres $288C. 

Bij een koude start wordt eerst de pointer naar het laat- 
ste woord in de FORTH VOCABULARY in de de^initie van FORTH 
geschreven. Dit adres staat op $26gC. Vervolgens worden de 
stack pointers SP. en RP en de statische pointers TIB en UP 
geinitialiseerd. Deze pointers liggen ook in de BOOT-UP lite- 
rals. Op adres $201C hgt het adres waamee FENCE geiniti- 
aliseerd wordt en op adres $28 IE ligt het startadres van 
HERE. Op adres $2828 ligt het adres waarnee VOC-LINK ge- 
initialiseerd noet worden. Bij een koude (o^ warne) start 
worden CURRENT en CONTEXT altijd op de VOCABULARY FORTH 
gezet. 

Bij een koude start kunnen we op de volgende nanier pro- 
beienen krijgen: 

Als we in FORTH een VOCABULARY gelockt hebben dan noet er 
in de definitie van deze VOCABULARY een verwijzing staan 
naar het laatste woord in deze VOCABULARY. Als we voora'f- 
gaand aan deze koude start woorden aan deze VOCABULARY heb- 
oen toegevoeod die niet gelockt zijn, dan verdwijnen deze 
woorden uit de DICTIONARY naar niet uit de de'finitie van 
de VOCABULARY. Het gevolg hiervan is dat het gebruik van 
woorden uit de betre-ffenoe VOCABULARY vernietiging van FORTH 
tot gevolg heeft. 

6. Het locken van woorden en VOCABULARYs. 



Ik hoop dat uit de vorige paragraa'f enigzins duidelijk ge- 
worden is wat er noet gebeuren on woorden en VOCABULARYs 
in FORTH vast te houden, te locken. On alles volkonen dui- 
delijk te naken, zai ik de procedure stap voor stap be- 
spreken. 

1 ) Het locken van woorden. 

1.1) 6a eerst naar de standaard toestand net de opdracht: 
FORTH DEFINITIONS DECIMAL 

1.2) In de eerste plaats noet FORTH verteld worden dat het 
betre^-fende gebied van de DICTIONARY niet verwijderd 
nag worden. Hiervoor gebruiken we de opdracht: 

HERE FENCE ! 

1.3) Vervoloens noet het begin van de FORTH-VOCABULARY 
vastgeiegd worden net de opdracht: 

LATEST 12 +ORIGIN ! 

(40RI6IN telt het begin van het ran-gebied ($2888) 
bij het getal op de stack op). 

1.4) Verder noet het nieuwe eind van de DICTIONARY op 
$20 IE geschreven worden: 

HERE 38 ^ORIGIN ! 

1.5) Ook noet de nieuwe waarde van FENCE op $28 IC ont- 
houden worden: 



HERE 28 ^ORIGIN ! 

2 ) Het locken van VOCABULi^RYS. 

Als er behalve uitbreidingen van bestaande VOCABULA- 
RYs ook geheel nieuwe VOCABULARYs gelockt noeten wor- 
den dan noet behalve de stapen 1.1 t/n 1.5 ook de 
volgende stap uitgevoerd worden. 

2.1) On VOC-LINK op de juiste waarde te kunnen initialise- 
ren noet ingetypt worden: 

VOC-LINK t 32 ^ORIGIN ! 

in [1] staat vemeld: 

' naan 6 t 32 ^ORIGIN ! 

waarbij naan de naan van de nieuwste VOCABULARY is. 
Dit kont echter op hetzel^de neer. 

Met de bovenstaande procedure worden alle woorden en VOCA- 
BULARYS die op dat noenent in de DICTIONARY aanwezig zijn 
gelockt. 

FORTH kan nu weggeschreven worden door te vragen: 
HERE HEX . 

en het gebied vana-f $2888 tot het gevonden adres op cas- 
sette of disc te schrijven. 

Opnerking: 

In PE-FORTH van PROTON voor de SENIOR hoeft all een stap 
1.2 uitgevoerd te worden waarna FORTH bij de aanroep MON 
zeH het gebruikte geheugengebied afdrukt. 

7. Un locken van woorden en VOCABULARYs. 



Als we gelockte woorden willen verwijderen dan noet de 
in paragraa? 6 oenoende procedure in principe ongekeerd 
worden. Dit gaat dan als volgt: 

1 ) Het un locken van woorden: 

1.1> ' naan NFA FENCE ! 

waarbij naan het eerste woord is dat uit de DICTIO- 
NARY verwijderd noet worden. 

Op deze wijze wordt het nogelijk genaakt on de keten 
vana^ het woord 'naan' te verwijderen. 

1.2) FORGET naan 
De woorden vanaf naan worden daadwerkelijk verwijderd. 

1.3) Voer stap 1.1 t/n 1.5 uit paragraaf 6 uit. 

2 ) Het verwijderen van hele VOCABULARYs. 

2.1) Daar de initiele waarde van VOC-LINK ook onthouden noet 
worden noet stap 2.1 uit paragraaf 6 ook uitgevoerd wor- 
den. 
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fl CLlffi FDR ALL 6Sxx USERS 



Infontttion abeut the club. 

Most Deoole are not Nell-inforaed about the first aicro- 
coaouter club in The Netherlands. It was called The KIN 
Users Club The Netherlands. Today, the naae of the club is 
not Quite covering all the other ■etbers Nith a coaouter 
froft the CSxx-faaily. So, the club aooears also with the 
naie DE 6502 KENNERS, and offers accogodation to all users 
of the 6Sxx-co«iuters, like APPLE, CQNNODORE, WC, flCORN. 
flTflRI. OSI. in 2020. AIN-65, CHE-1, CV-777, BflSIS lOB^ 
PBWaM, Snhl. PET, Vk-20, Proton-coaouters, ORIC-1, fCt 
1000. SYSTEM 65, PC-100, PALLAS, NINTA^ FORNOSA, STfllLIBHT 
ESTAtE III, SBC 65/68, ks 6502, KENPAt Systea \, Elefctuur 
JIMIOR, Elektuur SflMS0N65, KIN-1, etc.. etc. 

International 



The club has aeabers in The Netherlands, Belpiua, Geraany, 
France, Soain, Portugal, Aaerica, India, Zaabia, etc. etc. 

Puroose 



The club has been established 29th of January 1?77 Nith 
the ournose to oroaote the exchange of knoNledge aaong the 
users of systeas aentioned beforer 

Meetings In The Netherlands the club oraanises 
aeetings each third Saturday of tfie odd 

aonths' exceot in July. 

The club delivers lectures of all kinds. 

about Drograaaing aachine language, Basic, 

Forth, etc. etc. 

Cassette Libr. The cassette library is free available for 

all aeabers by ordering cassettes. 

Prograas on cassette has been devtlootd by 
aeabers of the club, aostly ooblished in 
our club aagazin DE 6502 KENNER. All rights 
of the authors are reserved. 

PaoerMare The oaoerNare service exists of oroviding 
source-listinos and articles oublished in 

our club aaoazin DE 6502 KENNER. 

There are also listings in English. 

Nagazine The aagazin DE 6502 KENCR aooears 5 tiaes 

a yearJ The articles are written by aeabers 

of the club froa all coutries, aided by the 
redaction. Articles of all kind, harditare 
as Mell as source-listings in asseably Nith 
coaaents, Basic, Forth, Coaal, Focal, Loao, 
Elan, Pascal, Cobol, Fortran^, etc. efc. 
Used asseablers: Nicro-ADE, ASS/TED, Proton 
asseabler, FATE, Big Mac, and so on. 
Each edition counts 48 paoes at least. 
Soae source-listinos are foo long to be pu- 
blished like a 12K FATE. They Nill be 
available in the oaoerHare-service. 
An indeoendent jury aMards prices for soae 
contribvtions. 

Neabership H e a bc rship is open for all natural persons. 

Both for novice and advanced. 

Subscribe on Eurocheoue \fL. 45.= and send 
to: Editorial Office DE 6502 KENNER 
c/e Uillea L van Pelt 
Jaco b Jordaensstraat 15 
2923 CK Kriaoen a.d. IJssel 
The Netherlands. 
If not oaying Nith Eurocheoae: NFL. 5ZS0 ! 



Paoemare-service 

Nicro-ADE W Asseabler/Disasseabler/Editor. 
For use Nith any 6502 aicrocoaovter. 
Nicro-^ Nas developed by Peter Jenninps of Nicro-Uare Ltd 
Canada, (C) 1977. (C) 1982 by KIN Users Club. 

FATE 12K Foraat Lister/Asseabler/Taoe-utilities/Editor. 
For use Nith Elektor's JUNIOR-coaputer Nith PN t TN. 
Also for use Nith KIN-1 coaouter (separate I/O patches). 
He noH try to aake a FATE Norking on APPLE-coaPuter. 
FATE Has developed by our aeaber Rob Banen, based on object 
inforaation and published Nith peraission of Proton Electr. 
Naarden. The Netherlands. (C) 1984. 
He recoaaend free aeaory soacei of at least 16K. better 32K 

FATEC 12K Foraat Lister/Asseabler/Tape-atilities/Editor. 
Saae FATE, but noN for use Nith 65C02-processor. 



ASN6SC CrossAsseabler for use Nith 6SC02-precessor. 
Developed by Rob Banen for Elektor's JUNIOR-coaouter 
Proton Disk Ooeratino Svstea (Senior). 



Nith 



CAT 8K tHo pass Club Asseabler Texteditor for C-64. 
Developed by our aeaber Ruud H. Uohoff. 
Asseabler Nith IF-TNEN-ELSE, REPEAT-UNTIL. UHILE-DO. CASE- 
UNEN-OTHEHISE, NOVE COPY, DELETE, RENUNBER CHfWBE, etc. 
With build-in stroctureaacro's and controlstructures. 
English aanual not available yet. 

FORTH-79 STANDARD 

fio-FDRTH 6502 As s e a b ly Source Listino 
fid-FDRTH Instalatien Nanual Nith Glossary, Nedtl, Editor 

FORTH 79 STADARD Conversion 

fio-FDRTH for JUNIOR Nith Proton Disk Operating Svftea. 
Developed by our aeaber Gert van Oobroek. 

FYS-FORTH for APPLE II 

2nd FYS-FORTH VSN 0.3 Release of July 4th. 1984. 



Disasseabler for the RockNel 65C02. 

Developed by Rob Banen for JUNIOR Nith Proton DOS. 

CFAST5 Controlling digital recorder 6000 baud. 
Dutch version source-listing developed by our 
van NieuNenhove for JUNIM-coaouter Nith PN t IN. 



JUNIOR on 5' Floppy. 

Dutch aanual <»id English source-listing developed by 
van NieuHenhove, Nith scheae, Bvte-articles and other 
aations. Ask for prices. 

Floppy disk on AIN-e5 

Article published in DE 6502 KENNER nr. 28 Oct. 1983. 
Dutch version, Nith scheae. 
Author: D.A. Gerritsen. 



r Koen 



Koen 
infer 



Read basicode Nith your Nicrosoft SYN-1 Basic on Elektor^'t 
JUNIOR-cflwwter Nith PN TN, and Elektor's interface. 

Read basicode Nith your Nicrosoft KB9-P Basic on Elektor's 
JUNIOR-coaputer Nith PN ^ TM, and Eelektor's interface. 
minmimiiiiiiim i iini i mi i mmiii i iiiiimii i ui 

• Send your prooraa listinos to the editors office * 

* c/o Uillea L. van Pelt « 
t Jacob Jordaensstraat 15 * 
i 2923 CK Kriaoen a.d. IJssel * 
t The Netherlaids * 
miiiiiinmiiimmi i imimminiin i inniiim i m 



ii*> 



